По номеру месяца вывести время года, используя оператор ветвления if в языке программирования Паскаль.

Var

A:integer;

Begin

WriteLn ('Введи номер месяца') ;

ReadLn (A) ;

Case A mod 12 of

0 ... 2:WriteLn ('Зима') ;

3 ... 5:WriteLn ('Весна') ;

6 ... 8:WriteLn ('Лето') ;

9 ... 11:WriteLn ('Осень') ;

End

End.

Вариант с if:

Var A:integer;

Begin

WriteLn ('Введи номер месяца') ;

ReadLn (A) ;

if (A mod 12) in[0 ... 2] then WriteLn ('Зима') ;

if (A mod 12) in[3 ... 5] then WriteLn ('Весна') ;

if (A mod 12) in[6 ... 8] then WriteLn ('Лето') ;

if (A mod 12) in[9 ... 11] then WriteLn ('Осень') ;

End.

Var n:integer;

begin

writeln ('n=') ;

readln (n) ;

case n of

3,4,5:writeln ('Весна') ;

6,7,8:writeln ('Лето') ;

9,10,11:writeln ('Осень') ;

1,2,12:writeln ('Зима') ;

end;

end.