Дано четырехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое целое число. Число может иметь меньше четырех знаков, тогда нужно считать, что его десятичная запись дополняется слева незначащими нулями. Задача на С++​

На языке Pascal.
program average_elems;
var a, b : array[1..1000] of integer; 
n, i, m, sum1, sum2 : integer;
begin
  read(n);
  for i:=1 to n do begin
    read(a[i]);
    sum1 := sum1 + a[i];
    end;
  read(m);
  for i:=1 to m do begin
    read(b[i]);
    sum2 := sum2 + b[i];
    end;
  write(sum1 div n, ' ', sum2 div m, ' ', sum1 div n + sum2 div m);
end.

a, b - первый и второй массивы. n, m - кол-во элементов в массивах a и b соответственно, sum1, sum2 - суммы элементов в первом и втором массивах соответственно. 

var
  y, x, a, xn, xk, dx, sum, multiplNegative: real; 
  countNegative: integer; 
  j, m, f: real;

begin
  write('a --> '); 
  Read(a); 
  write(' xn --> '); 
  Read(xn); 
  write(' xk --> '); 
  Read(xk); 
  write(' dx --> '); 
  Read(dx);
  sum := 0; 
  multiplNegative := 1; 
  countNegative := 0; 
  x := xn;
  while (x <= xk) do 
  begin
    if (a + x < 0) then begin
      f := (a + x) * -1; 
      f := ln(f) * (-1); 
      j := Round(abs(a - sqr(x)) * f * 100000) / 100000; 
    end 
    else 
      j := Round(abs(a - sqr(x)) * ln(a + x) * 100000) / 100000; 
    m := Power(sqr(x), 1 / 3) + Power(a, 1 / 5); 
    if j < 0 then begin
      j := j * (-1); 
      j := Power(j, 1 / 3); 
      j := j * (-1); 
    end 
    else 
      j := Power(j, 1 / 3);
    y := Round(j / m * 100000) / 100000; 
    write('x= ', x:5:3, ' '); 
    writeln('y= ', y:7:5); 
    if y < 0 then 
    begin
      sum := sum + y; 
      multiplNegative := multiplNegative * y; 
      inc(countNegative); 
    end; 
    x := x + dx; 
  end; 
  writeln; 
  writeln(' y = ', countNegative); 
  writeln('y = ', sum:7:5); 
  writeln(' y = ', multiplNegative:7:5);
  Readln;
end.