Фирма монополист будет нанимать дополнительных рабочих до тех пор, пока не будет соблюдаться равенство

uses crt;

var a,b,c,n,n1:integer;
begin

readln(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.