Циклы

[A_Orlov]

Помогите, пожалуйста!
Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).

[Филантроп]

var n:integer;
begin
readln(n);
case n of
1,2,12:writeln('Winter');
3,4,5:writeln('spring');
6,7,8:writeln('summer');
9,10,11:writeln('autumn');
end;
readln;
end.