Написать программу, определяющую номер квартала по введеному номеру месяца, используя оператор case.

Var a, i, k:integer;

begin

Writeln ('Введи номер месяца');

Readln (k);

if (k>0) and (k<13) then

case k of

1 ... 3: writeln ('Первый квартал');

4 ... 6: writeln ('второй квартал');

7 ... 9: writeln ('третий квартал');

10 ... 12: writeln ('четвертый квартал');

End

else writeln ('неверный ввод');

Readln;

end.