Дано целое число га (1

+1

Var n:integer;

begin

writeln ('Введите порядковый номер времени года') ;

readln (n) ;

case n of

1:writeln ('Декабрь, Январь, Февраль') ;

2:writeln ('Март, Апрель, Май') ;

3:writeln ('Июнь, Июль, Август') ;

4:writeln ('Сентябрь, Октябрь, Ноябрь') ;

end;

end.