Question

Даю 50 баллов. 4 задание.

Answer 1

//PascalABC.NET

begin
    writeln('Введите порядковый номер месяца');
    var a := ReadInteger();
    case a of
        12,1,2 : writeln('Зима');
        3..5 : writeln('Весна');
        6..8 : writeln('Лето');
        9..11 : writeln('Осень');
        else writeln('Вы живете в параллельной вселенной');
    end
end.