Написать программу, определяющую номер квартала по введеному номеру месяца, используя оператор 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.