Сделать программу ,которая выводит номер квартала по введенному номеру месяца — Pascal(Паскаль)

uses crt;

var v:integer;

begin

Write('Введите номер месяца ');
read(v);

case v of

1..3 : writeln('Первый квартал');
4..6 : writeln('Второй квартал');
7..9 : writeln('Третий квартал');
10..12 : writeln('Четвертый квартал');
else Writeln('Ошибка ввода');

end;
end.