Складіть проект, у якому виконавець зменшить свій образ на 10якщо до виконавця доторкаеться вказівник миші переміститься вправо на 100,якщо натиснути клавішу стрілка вправо або зіграє ноту до, якщо натиснути клавішу пропуск

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

Идею электронных таблиц впервые сформулировал американский учёный австрийского происхождения Рихард Маттезих (нем. Richard Mattesich), опубликовав в 1961 г. исследование под названием «Budgeting Models and System Simulation»[3]. Концепцию дополнили в 1970 г. Пардо (англ. Rene Pardo) и Ландау (англ. Remy Landau), подавшие заявку на соответствующий патент (U.S. Patent 4 398 249). Патентное ведомство отклонило заявку, но авторы через суд добились отмены этого решения.

Общепризнанным родоначальником электронных таблиц как отдельного класса ПО является Дэн Бриклин, который совместно с Бобом Фрэнкстоном разработал программу VisiCalc в 1979 г. Эта электронная таблица для компьютера Apple II стала очень популярной, превратив персональный компьютер из игрушки для технофилов в массовый инструмент для бизнеса.

Впоследствии на рынке появились многочисленные продукты этого класса — SuperCalc, Microsoft MultiPlan, Quattro Pro, Lotus 1-2-3, Microsoft Excel, OpenOffice.org Calc, таблицы AppleWorks и gnumeric, минималистический Spread32.