Дано целое число от 1 до 12 - номер календарного месяца. Программа должна выводить название времени года. Проходим тему: Логические операции.

program zz1;

var s, k:integer; / / задаем переменные целого типа

begin

writeln (' введите номер месяца '); / / вводим с клавиатуры число от 1 до 12

read (k);

if (k = 1) or (k = 2) or (k = 12) then write (' Зима '); / / проверяем условия и выводим ответ, если условие верное

if (k = 3) or (k = 4) or (k = 5) then write (' Весна ');

if (k = 6) or (k = 7) or (k = 8) then write (' Лето ');

if (k = 9) or (k = 10) or (k = 11) then write (' Осень ');

end.