Var mesyac:integer;beginwriteln(\'введите номер месяца\');readln(mesyac);if mesyac = 12 or 1 or 2 thenwriteln (\'зима\');if mesyac = 3 or 4 or 5 thenwriteln (\'весна\');if mesyac = 6 or 7 or 8 thenwriteln (\'лето\');if mesyac = 9 or 10 or 11 thenwriteln (\'осень\')else writeln(\'ошибка, не правильно введен месяц\');end.