Блоксхему program b4; var n: byte; begin write('введите номер месяца: '); readln(n); case n of 1,2,12: writeln('зима'); 3..5: writeln('весна'); 6..8: writeln('лето'); 9..11: writeln('осень') else writeln('не корректный номер месяца'); end; end.