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

Можно так:

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.