Ввести номер месяца. Определить по введенному номеру – квартал.
Program Case_5- —
var — — — -n:integer- —
begin
write(‘Введите номер месяца:’)-
readln(n)-
case n of
1..3 :writeln(‘Первый квартал’)- —
4..6 :writeln(‘Второй квартал’)-
7..9 : writeln(‘Третий квартал’)-
10..12: writeln(‘Четвертый квартал’)
else writeln(‘Некорректный ввод’) —
end- —
Readln —
end.