вводится номер месяца. вывести пору года для этого месяца 1-зима,...,3-весна,...,8-лето,.... Пожалуйста. язык Паскаль.

var s: integer;beginreadln(s);if (s=12) or (s=1) or (s=2) then writeln('зима')elseif (s=3) or (s=4) or (s=5) then writeln('весна)else(s=6) or (s=7) or (s=8) then writeln('лето')elsewriteln('осень');end;