Как ввести номер месяца и вывести название времени года на языке Паскаля

Предыдущий
вопрос Следующий
вопрос

program Season;

var
month: integer;

begin
write('Enter the number of the month: ');
readln(month);

case month of
1, 2, 12: writeln('Winter');
3, 4, 5: writeln('Spring');
6, 7, 8: writeln('Summer');
9, 10, 11: writeln('Autumn');
else
writeln('Invalid month number');
end;

end.