По введенному номеру месяца выдать сообщение «Зима», «Весна», «Лето» или «Осень» — Pascal(Паскаль)

program vremena;
var i:integer;
begin
read(i);
case i of
3..5: writeln ('весна');
6..8: writeln ('лето');
9..11: writeln('осень');
1,2,12 :writeln('зима')
end;
end.