Помогите составить программу.

Question

Помогите составить программу.

---

Comments

на каком языке?

---

паскаль

Answer 1

Program z;
var n:Integer;
begin
write('Введите номер месяца: ');
read(n);
if (n>=3) and (n<=5) then WriteLn('Весна')<br> else if (n>=6) and (n<=8) then Writeln('Лето')<br> else if (n>=9) and (n<=11) then Writeln('Осень')<br> else if (n=12) or (n=1) or (n=2) then Writeln('Зима')
else WriteLn('Ошибка')
end.