Можно так:
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.
Точка 100 200
начертите в право 4 клетки
начетите низ лево 1 клетку
начертите в лево 2 клетки
начертите вверх лево 1 клетку
дальше не знаю
<span>x=125
a = x div 100 = 125 div 100 = 1
b = x mod 100 = 125 mod 100 = 25
c = x mod 10 = 125 mod 10 = 5
s = a+b+c = 1+25+5 = 31</span>