Напишите программу которая по введённому номеру месяца выводит сообщения о том какое сейчас время года

Uses crt;
var i:integer;
begin
writeln('vvedite chislo');
readln(i);
case i of
1:writeln('зима');
2:writeln('зима');
3:writeln('весна');
4:writeln('весна');
5:writeln('весна');
6:writeln('лето');
7:writeln('лето');
8:writeln('лето');
9:writeln('осень');
10:writeln('осень');
11:writeln('осень');
12:writeln('зима');
else
writeln('неверный диапазон времен года');
end;
end.