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.