Каждый ежедневно болеющий гриппом человек может заразить окружающих. Составьте программу, определяющую, через сколько дней заболеют все ученики школы. Число учащихся школы ввести с клавиатуры.

при условии что каждый больной заражает от 1 до 5 человек каждый день, и что больные упорно ходят в школуconst    min_posible = 1;    max_posible = 5;var all_students, ill, new_ill, days, i: integer;Begin    Randomize;    Writeln('Кол-во учеников школы =>');    read(all_students);    ill := 1;    repeat        days := days + 1;        new_ill := 0;        for i := 1 to ill do            new_ill := new_ill + Random(min_posible, max_posible);        ill := ill + new_ill;        Writeln('День ',days:3,': Заразилось ',new_ill:5,' Больных ',ill:5);    until ill >= all_students;    Writeln(days);End.