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