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

Program Case3;
Var
x:Integer;
Begin
ReadLn(x); 
Case x Of
3..5:WriteLn('«весна»');
6..8:WriteLn('«лето»');
9..11:WriteLn('«осень»')
Else
WriteLn('«зима»');
End;
End.

автор: Sklyarov Sergej a.k.a. S9