как ввести номер месяца и вывести название времени года на языке Паскаля

Можно так: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.Можно использовать Case.