Задание 3 Составить программу, выводящую время года в зависимости от номера месяца введенного пользователем.

var

n: longint;

begin

write ('Введите порядковый номер месяца: ');

readln (n);

if (n = 1) then writeln ('Данный месяц - январь. Время года - зима.');

if (n = 2) then writeln ('Данный месяц - февраль. Время года - зима.');

if (n = 3) then writeln ('Данный месяц - март. Время года - весна.');

if (n = 4) then writeln ('Данный месяц - апрель. Время года - весна.');

if (n = 5) then writeln ('Данный месяц - май. Время года - весна.');

if (n = 6) then writeln ('Данный месяц - июнь. Время года - лето.');

if (n = 7) then writeln ('Данный месяц - июль. Время года - лето.');

if (n = 8) then writeln ('Данный месяц - август. Время года - лето.');

if (n = 9) then writeln ('Данный месяц - сентябрь. Время года - осень.');

if (n = 10) then writeln ('Данный месяц - октябрь. Время года - осень.');

if (n = 11) then writeln ('Данный месяц - ноябрь. Время года - осень.');

if (n = 12) then writeln ('Данный месяц - январь. Время года - зима.');

end.