var
k:integer;begin
read(k);
case k of
1..2,12: write('зима');
3..5: write ('весна');
6..8 : write ('лето');
9..11: write ('осень');
end;end.
var n : integer;beginreadln (n);case n of1, 2, 12 : writeln ('зима');3, 4, 5 : writeln ('весна');6, 7, 8 : writeln ('лето');9, 10, 11 : writeln ('осень'); end;end.
Правильный ответ 4).........