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

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