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

Program Digit3;
  var
      Num:integer;
begin
  write('Введите номер месяца:');
  readln(Num);
  case Num of
    1,2,3 :write!n('Первый квартал');
    4,5,6 :writeln('Второй квартал');
    7..9 : writeln('Третий квартал');
{ метка 7. .9 -интервал чисел от 7 до 9; то же самое, что и 7,8.9 }
    10..12: writeln('Четвертый квартал')
    else writeln('Некорректный ввод')
  end;
  readln
end.