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

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

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно