Дан номер месяца (1 — январь, 2 — февраль, …). Вывести название соответствующего времени года («зима», «весна» и т.д.).

Program Begin63;
Uses crt;
Var
month:integer;
begin
ClrScr;
WriteLn (‘Введите месяц’);
ReadLn (month);
if (month>0) and (month<13) then case month of 1,2,12: WriteLn ('Зима'); 3,4,5: WriteLn ('Весна'); 6,7,8: WriteLn ('Лето'); 8,9,10: WriteLn ('Осень'); end else if (month<0) and (month>13) then
WriteLn (‘Нет такого’);
ReadLn;
end.