Дано целое число от 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.