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