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

при условии что каждый больной заражает от 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.