Составить программу, печатающую значение true, если указанное высказывание…

Program akifieva70; var n,s,r: integer; beginwrite ('n='); read (n); write ('s='); read (s); if (n div 100=s) or (n mod 10=s) or (n div 10 mod 10=s) then write ('TRUE') else write ('FALSE'); writeln; write ('n='); read (n); write ('r='); read (r); if (r mod 2 <>0) and (n mod 2<>0) then write ('TRUE') else write ('FALSE'); end.