Составьте программу в Паскаль, вводящую true…

uses crt; var a,b,c,n,n1: integer; beginreadln (n); n1: =(n div 100)+(n div 10) mod 10)+(n mod 10); if (n1 mod 2=0) then write ('true'); if (n1 mod 2=1) then write ('false'); readln (a,b,c); if (a=b) and (a=c) and (b=c) then write ('true') else write ('false') end.