Двоичное число которому соответствует десятичное число читающееся одинаково и в нормальном виде и вверх тормашками

Думаю, что это число 800 и все производные числа  от цифр 8 и 0; dec - 800; bin -  1100100000; dec - 880; bin -  1101110000; dec - 888; bin -  1101111000; dec - 808; bin -  1100101000; *dec - десятичная система счисления; **bin - двоичная система счисления.

Var   a, b: integer; begin   readln(a);   while (inttostr(a).length > 1) do   begin     b : = 0;     foreach c: char in inttostr(a) do       b += strtoint(c);     a : = b;   end;   writeln(b); end.=======================var  a, b, e: integer;   d: string; begin  readln(a);   d : = inttostr(a);   while (length(d) > 1) do  begin    d : = inttostr(a);     b : = 0;     for e : = 1 to length(d) do      b += strtoint(d[e]);     a : = b;   end;   writeln(b); end.

Var     i,j,s,min,im: integer;     a: array[1..7,1..5]of integer; begin for i: =1 to 7 do   begin   for j: =1 to 5 do     begin     a[i,j]: =random(-9,9);     write(a[i,j]: 4);     end;   writeln;   end; writeln('сумма отрицательных по столбцам: '); for j: =1 to 5 do   begin   for i: =1 to 7 do     if a[i,j]< 0 then s: =s+a[i,j];   write(s: 4);   s: =0;   end; min: =a[1,1]; for j: =1 to 5 do     begin     if (a[1,j]< min) then       begin       min: =a[1,j];       im: =j;       end;     end; writeln; writeln('min=',min,'; (1,',im,')'); end.