16, помогите пожалуйста

Question

16, помогите пожалуйста

---

Answer 1

Если я всё правильно понял, то должно быть так: var a:integer; begin if a mod 2 = 0 then a:=a*a else a:=a*a*a; write(a); end.