программа запрашивает номер месяца и выдает время года, которому этот месяц принадлежит (например, 4- весна, 7 - лето)

program raf105;

var m: integer;

begin

write('Введите номер месяца: ');

readln(m);

case m of

 12,1,2: writeln('Это зима');

 3..5: writeln('Это весна');

 6..8: writeln('Это лето');

 9..11: writeln('Это осень');

end;

end.