Паскаль срочна ! Назовите сезон года по номеру месяца

Var
Month: integer;
Season: string;
begin
write(Введите номер месяца: );
readln(Month);
if (Month=1) or (Month=2) or (Month=12) then
Season := Зима
else if (Month=3) or (Month=4) or (Month=5) then
Season := Весна
else if (Month=6) or (Month=7) or (Month=8) then
Season := Лето
else Season := Осень;
writeln(Это ,Season)
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.