Вводится номер месяца. вывести пору года для этого месяца 1--- . язык паскаль.

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