Программирование . Эпидемия чесотки в городе длится 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.