Блоксхему пж
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.