colorwind (1,4,70,16, black, Lightblue);
txt (Green);
gotoxy (2,2); write ('травоїдних-', g, ' Хижаків-', m);
str (ttt: 1:2, s);
-19 - br/>
gotoxy (2,3);
write (s, 'т. трави і ', Ht,' туш потрібно на прокорм тварин ');
gotoxy (2,4);
write ('Max вік травоїдних ', v,', хижаків ', w);
gotoxy (2,5);
write ('Дітородний вік травоїдних від ', tmin,' до ', tmax);
gotoxy (2,6);
write ('Дітородний вік хижаків від ', hmin,' до ', hmax);
gotoxy (2,7);
write ('Кал травоїдних до ', tp,', хижаків до ', hp);
gotoxy (2,8); write ('Трави ', Tree,' тонн ');
str (tr: 1:2, s);
gotoxy (2,9); write ('Приріст трави на кожен місяць ', s,'% ');
if (kata = 0) or (Kata = 1) then s: = 'відсутній' else
s: = 'присутній';
gotoxy (2,10); write ('Ймовірність катаклізмів ', s);
s: = colword (ct);
gotoxy (2,11); write ('Колір травоїдних ', s);
s: = colword (ch);
write ('Колір хижаків ', s);
end;
{********************************************** *************}
procedure Gmenu;
begin
fon (black);
clrscr;
colorwind (1,1,80,4, black, darkgray);
txt (14);
gotoxy (5,2);
write (' S ');
txt (white);
write ('tart '); p> txt (yellow);
write ('O');
txt (white);
write ('ption '); p> txt (yellow);
write ('Q');
txt (white);
write ('uit');
END;
{********************************************** *************}
PROCEDURE Omenu;
begin
colorwind (45,3,62,8, black, darkgray);
hiddencursor;
txt (14);
gotoxy (2,2);
write ('H');
txt (white);
writeln ('erbivorous');
txt (yellow);
gotoxy (2,3);
write ('B');
txt (white);
-20 - br/>
writeln ('east of prey ');
txt (yellow);
gotoxy (2,4);
write ('E');
txt (white);
write ('nvironment');
end;
{********************************************** *************}
procedure start;
begin
randomize;
gD : = Detect;
InitGraph (gD, gM,'');
setfillpattern (pal, black);
z: = 0; {початок ери}
tt: = 0; {Трупи і з'їдені}
ini;
repeat
key: = false;
z: = z +1;
if ((z mod 365) = 0) or ((z mod 365) = 31) or ((z mod 365) = 59)
or ((z mod 365) = 90) or ((z mod 365) = 120) or ((Z mod
365) = 151) or (...
