Курсовая работа: Программа эмуляции развития

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);

colorwind(1,4,70,16,black,Lightblue);

txt(Green);

gotoxy(2,2);write('Травоядных-',g,' Хищников-',m);