// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите номер месяца (1-12):');
case n of
3,4,5:Writeln('Весна');
6,7,8:Writeln('Лето');
9,10,11:Writeln('Осень');
12,1,2:Writeln('Зима')
else Writeln('Неверный номер')
end
end.