Блоксхему пж Program b4;Var n:byte;Begin write(039;Введите номер месяца: 039;);readln(n);

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