(v);
gotoxy (2,8);
write ('Колір виводу:');
read (ct);
colorwind (3,20,77,25, black, black);
end;
{********************************************** *************}
procedure beast; {хижаки}
begin
colorwind (3,20,77,25, black, yellow);
gotoxy (32,1);
writeln ('Правила введення для хижаків');
gotoxy (2,2); write ('Кількість хижаків не більше 1000.');
write ('Корм - кількість травоїдних на рік.'); gotoxy (2,3);
write ('Кал - кількість дитинчат.'); write ('Колір висновку від 1
до 15 ');
colorwind (40,10,65,19, black, red);
gotoxy (8,1);
txt (Yellow);
write ('Хижаки');
gotoxy (2,2);
txt (yellow);
write ('Кількість:');
readln (m);
gotoxy (2,3);
write ('Корм:'); {початкове кол-во хижаків}
readln (ht);
gotoxy (2,4);
write ('Кал:'); {народжуваність}
-18 - br/>
readln (hp);
gotoxy (2,5);
write ('Min дітородний:'); {природна смертність}
read (hmin);
gotoxy (2,6);
write ('Max дітородний:'); {природна смертність}
read (hmax);
gotoxy (2,7);
write ('Max вік:'); {природна смертність}
read (w);
gotoxy (2,8);
write ('Колір виводу:');
read (ch);
colorwind (3,20,77,25, black, black);
end;
{********************************************** *************}
procedure env; {середовище проживання}
begin
colorwind (3,20,77,25, black, yellow);
gotoxy (32,1);
writeln ('Правила введення для середовища');
gotoxy (2,2); write ('Кількість трави не менше 1000.');
write ('Відсоток відновлення будь-який.'); gotoxy (2,3);
write ('Катастрофи: 0 або 1 - ні, 2 і більш-є.');
gotoxy (2,4);
write ('Затримка повідомлень у мс. Рекомендується не менше
1000 ');
colorwind (40,10,75,17, black, Magenta);
gotoxy (13,1);
txt (Yellow);
write ('Середовище проживання');
gotoxy (2,2);
txt (yellow);
write ('Кількість трави:'); {Кількість встановлювати
їжі для травоїдних на рік}
readln (tree);
gotoxy (2,3);
write ('Відсоток відновлення:');
readln (tr);
gotoxy (2,4);
write ('Наявність катастроф:');
readln (kata);
gotoxy (2,5);
write ('Затримка повідомлень:');
readln (q);
colorwind (3,20,77,25, black, black);
end;
{********************************************** *************}
procedure info;
begin
fon (15);
...
