[i]Program Task36;[i][i]
[i]Var
x : 1..12; {Объявление переменой а диапазоном от 1 до 12}
Begin
Writeln ('Введите номер месяца (1-12) :');
Readln (x); {Ввод переменой а}
Case x of
1, 2, 3 : Writeln ('I квартал'); {Выбор квартала в зависимости от введенного числа и вывод его на экран}
4, 5, 6 : Writeln ('II квартал');
7, 8, 9 : Writeln ('III квартал');
10,11,12: Writeln ('IV квартал');
end;
Readln;
End.