Ввести номер месяца и вывести название времени года. пример: введите номер месяца 4 весна напишите программу на языке паскаль

Var  a: byte;

begin 
  writeln('Введите номер месяца:');
  readln(a);
  case a of
    1, 2, 12: writeln('Зима');
    3..5: writeln('Весна');
    6..8: writeln('Лето');
    9..11: writeln('Осень')
  else writeln('Ошибка');
  end;
end.