Отправляю но нет ответа кто я уже устал программирование

1.
Даны три различных вещественных числа. Не используя полный условный
оператор, определить:
а) наибольшее из них;
б) наименьшее из них.

2.
Дано число n. Из чисел 1, 4, 9, 16, 25, ... напечатать те, которые не превышают n.

3.
Дано ошибочно написанное слово и информация. Путем перемещения его букв
получить слово информация.​

1) Вирус  - это вредоносная программа, которая распространяется копируя себя (возможно не полностью). Различаются по попадания на устройство, типу заражаемых объектов распространения и типу вредоносных действий

В среднем жизненный цикл вируса такой: попадание на устройство, активация, поиск объектов для заражения, заражение, распространение

2) Вообще вирус может делать все то же, что и другая программа. Теоретически вирус может быть даже полезным. Но так или иначе он совершает действия не санкционированные самим пользователем или системой

Примеры вредоносных действий

использование ресурсов системы в своих целях (вычисления, Ддос атаки,...)удаление или порча, шифрование файловнарушение работы системы/ОСкража личных данных пользователя (напр. данных банковских карт, паролей)нарушение работы программперегрузка/блокировка линий связиспам, внедрение угрожающих/рекламных сообщений, переходы на нежелательные сайты

var a: integer;

begin

writeln('Введите № месяца');

readln(a);

case a of

1: begin writeln('Январь Зима'); end;

2: begin writeln('Февраль - Зима'); end;

3: begin writeln('Март - Весна'); end;

4: begin writeln('Апрель - Весна'); end;

5: begin writeln('Май - Весна'); end;

6: begin writeln('Июнь - Лето'); end;

7: begin writeln('Июль - Лето'); end;

8: begin writeln('Август - Лето'); end;

9: begin writeln('Сентябрь - Осень'); end;

10: begin writeln('Октябрь - Осень'); end;

11: begin writeln('Ноябрь - Осень'); end;

12: begin writeln('Декабрь - Зима'); end;

 else  writeln('Ошибка. Введенный номер не является номером какого-либо месяца');

 end;

 readln

 end.

Объяснение: