На помощь!!!_____________Составить программку, печатающую значение true, если обозначенное

Program n_1;

var x:integer;

begin

   readln(x);

   x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);

   if (x mod 2 = 0) then writeln('true')

   else writeln ('false');

end.

(в программке 2 таких чисел не существует)

Program n_2;

var x, y:integer;

begin

   readln(x);

   y:=x*x;

   x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);

   x:=x*x*x;

   if (x=y) then writeln('true')

   else writeln ('false');

end.

Program n_3;

var a, b, c:integer;

begin

   read(a, b, c);

   if (a=b) or (b=c) or (a=c) then writeln('true')

   else writeln ('false');

end.

include lt;iostreamgt;

include lt;cmathgt;

include lt;iomanipgt;

bool zad1(int N)

   int sum = 0;

   while(N gt; 0)

       sum += N % 10;

       N /= 10;

   return sum % 2 == 0;

bool zad2(int N)

   int sum = 0, tmp = N;

   while(N gt; 0)

       sum += N % 10;

       N /= 10;

   return std::pow(tmp, 2) == std::pow(sum, 3);

bool zad3(int a, int b, int c)

   return (a == b amp;amp; b != c) (a == c amp;amp; a != b);

int main()

   int N, a, b, c;

   std::cin gt;gt; N gt;gt; a gt;gt; b gt;gt; c;

   std::cout.std::ios_base::setf(std::ios_base::boolalpha);

   std::cout lt;lt; zad1(N) lt;lt; std::endl

             lt;lt; zad2(N) lt;lt; std::endl

             lt;lt; zad3(a, b, c) lt;lt; std::endl;

   return 0;