по введенному числу месяца определить, к какой четверти ...

Дмитрий

var x: integer;begin write('Введите номер месяца: '); readln(x); if (x = 9)or(x = 10) then writeln('I четверть'); if (x = 11)or(x = 12) then writeln('II четверть'); if (x = 1)or(x = 3) then writeln('III четверть'); if (x = 4)or(x = 5) then writeln('IV четверть');end.