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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.