Ввести м-номер месяца. определить входит ли этот месяц во 2 квартал

Program p1;
var m:integer;
begin
writeln('Введите m: '); read(m);
if(m>3) and (m<7) then writeln('Этот месяц входит во 2 квартал') else writeln('Этот месяц не входит во 2 квартал');
end.