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

program p; var a: integer; begin writeln("Введите время года: "); readln(a); case a of 1 : writeln("Декабрь: 31 Январь: 31 Февраль: 28"); 2 : writeln("Март: 31 Апрель: 30 Май: 31"); 3 : writeln("Июнь: 30 Июль: 31 Август:31"); 4 : writeln("Сентябрь:30 Октябрь:31 Ноябрь:30"); end; readln; end.