Программа на скрине! Надеюсь помог!
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.