Программирование. Эпидемия чесотки в городе длится 20 дней. В городе N жителей (вводится пользователем). Выведите в цикле распространение эпидемии, если в день заражается Z=random (1000) человек. Вывод в виде: 14 день - здоровых 12378 больных 2367

Var

N, Z, sick, day: integer;

begin

sick : = 0;

day : = 1;

write ('Количество жителей: ') ;

readln (N) ;

while (day < = 20) and (sick < N) do

begin

Z : = random (1000) ;

sick : = sick + Z;

if sick > N then sick : = N;

writeln (day, ' день - здоровых ', N - sick, ' больных ', sick) ;

day : = day + 1;

end;

end.