---

program SeasonByMonth;
uses crt;
var
  month: integer;
begin
  clrscr;
  write('Введите номер месяца (1-12): ');
  readln(month);

  if (month < 1) or (month > 12) then
    writeln('Неверный номер месяца!')
  else
    case month of
      12, 1, 2: writeln('Зима');
      3, 4, 5: writeln('Весна');
      6, 7, 8: writeln('Лето');
      9, 10, 11: writeln('Осень');
    end;

  readln;
end.