Помогите плиз сежу ** уроке

Question

Помогите плиз сежу на уроке

---

Comments

сежи дальше

Answer 1

Var A:integer;
Begin
Read(A);
A:= A mod 12;
if (A>=0)and(A<3) then Write(Зима);<br>if (A>2)and(A<6) then Write(Весна);<br>if (A>5)and(A<9) then Write(Лето);<br>if (A>8)and(A<=11) then Write(Осень);<br>End.