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

var a,i,k:integer;beginWriteln ('Введи номер месяца');Readln (k);if (k>0) and (k<13) then case k of1..3: writeln ('Первый квартал');4..6: writeln ('второй квартал');7..9: writeln ('третий квартал');10..12: writeln ('четвертый квартал');Endelse writeln ('неверный ввод');Readln;end.