(z mod 365) = 181) or ((z mod 365) = 212) or
((Z mod 365) = 242) or ((z mod 365) = 273) or ((z mod
365) = 303) or ((z mod 365) = 334) then
begin
tree: = round (tree-g * ttt); {з'їли за місяць}
tree: = tree + round (tree * (tr/100)); {приріст трави на місяць}
x: = round (tree * ttt); {травоїдні вмирають від недоїдання}
if tree <= 0 then
begin
key: = true;
g: = 0;
m: = 0;
end
else
begin
if x
begin
repeat
j: = random (g) +1;
tg [j]. done;
tg [j]. init (0,0,0,0);
tt: = tt +1;
for i: = j +1 to g do
begin
x1: = tg [i]. getx;
y1: = tg [i]. gety;
at1: = tg [i]. daiage;
ct1: = tg [i]. daizwet;
tg [i]. done;
tg [i-1]. init (x1, y1, at1, ct1);
tg [i-1]. show;
end;
tg [g]. done;
-21 - br/>
tg [g]. init (0,0,0,0);
g: = g-1;
until x = g
end;
end;
end;
if g> 0 then tnew; {природна смертність травоїдних}
if m> 0 then
begin
dead; {хижаки їдять травоїдних}
hnew; {природна смертність хижаків}
havka; {хижаки вмирають від недоїдання}
hrod; {народження хижаків}
end;
if ((z mod 365) = 180) and (g> 0) and (m> 0) then
begin
if random (kata) <> 0 then
begin
x: = random (4);
if x = 0 then
begin
x: = random (round (g/50)) +5;
moveto (320,240); setcolor (Lightred); str (x, s);
Outtext ('Хвороба травоїдних забрала');
Outtext (s); Outtext (' життів ');
tmor;
end;
if x = 1 then
begin
x: = random (round (m/40)) +1;
moveto (320,240); setcolor (Lightred); str (x, s);
Outtext ('Хвороба хижаків забрала');
Outtext (s); Outtext (' життів ');
hmor;
end;
if x = 2 then
begin
zasux;
moveto (320,240); setcolor (Lightred);
str (tree1, s); Outte xt ('Засуха! Загублено');
Outtext (s); Outtext ('тонн трави');
delay (q);
end;
if x = 3 then
begin
x: = random (round (g/50)) +5;
moveto (0,240); setcolor (Lightred); str (x, s);
Outtext ('Повінь погубило'); Outtext (s); Outtext ('
травоїдних, '); p> tmor;
x: = random (round (m/40)) +1;
str (x, s); Outtext (s); Outtext ('хижаків,');
hmor;
zasux;
str (tree1, s); Outtext (s); Outtext ('тонн трави');
-22 - br/>
delay (q);
end;
delay (q);
bar (0,240,640,260);
end;
end;
if g> 0 then trod; {народження травоїдних}
if ...