Дано целое число от 1 до 12 - номер календарного месяца. Программа должна выводить название времени года. Проходим тему: Логические операции.

Program month;

uses CRT;

var a:integer;

Begin

ClrScr;

write ('vsatvte chislo') ;

read (a) ;

If (a=12) or (a=1) or (a=2) then write ('zima')

else if (a=3) or (a=4) or (a=5) then write ('vesna')

else if (a=6) or (a=7) or (a=8) then write ('leto')

else write ('oseni') ;

repeat until keypressed;

end.