Решите 54 (5) плз, даю 10 баллов

Question

Решите 54 (5) плз, даю 10 баллов

---

Answer 1

Var f:boolean; n:integer; begin f:=(n mod 2=0) and (n>=10) and (n<=99); write (f); end.