Написать программу, которая бы по введенному номеру времени года (1 - зима, 2-весна, 3-лето, 4-осень) выдавала соответствующие этому времени года месяцы, количество дней в каждом из месяцев.

program zz1;

var S:integer; / / задаем переменную целого типа

begin

write (' введите номер времени года = '); / / вводим номер поры года

read (s);

if s = 1 then write (' месяцы: январь - 31 день, февраль - 28 или 29 дней, декабрь - 31 день ');

if s = 2 then write (' месяцы: март - 31 день, апрель - 30 дней, май - 31 день ');

if s = 3 then write (' месяцы: июнь - 30 дней, июль - 31 день, август - 31 день ');

if s = 4 then write (' месяцы: сентябрь - 30 дней, октябрь - 31 день, ноябрь - 30 дней ');

end.