Program VremjaGoda; Var i:integer; Begin Writeln ('введите номер месяца'); Begin For i:=1 to 12 do Begin If i=1 or i=2 or i=12 Then writeln ('зима'); Else If i=3 or i=4 or i=5 Then writeln ('Весна'); Else If i=6 or i=7 or i=8 Then writeln ('Лето'); Else If i=9 or i=10 or i=11 Then writeln ('Осень'); End; End; End.