Определить время года по номеру месяца

{С экрана запрашивается номер месяца. В зависимости от введенного
значения на экран выводится либо сообщение о том, какому времени
года этот месяц принадлежит, либо о том, что месяца с таким номером
не существует. Каждое время года выводится своим цветом:
зима - белым, весна - зеленым, лето - красным, осень - желтым.
Сообщение о том, что месяца с таким номером не существует, - серым.}
uses
  crt;
var
  n:integer;
begin
  write('Введите номер месяца: '); readln(n);
  case n of
    1,2,12:
    begin
      textcolor(white);
      writeln('Зима.');
    end;
    3..5:
    begin
      textcolor(lightgreen);
      writeln('Весна.');
    end;
    6..8:
    begin
      textcolor(lightred);
      writeln('Лето.');
    end;
    9..11:
    begin
      textcolor(yellow);
      writeln('Осень.');
    end
  else
    begin
      textcolor(darkgray);
      writeln('Нет такого месяца.');
    end;
  end;
 
  readln;
end.