Среди чисел последовательности 1, 2, 4, 8, 16, 32 найдите количество чисел до первого шестизначного

var n,p,d : longint; a : array [0..9] of boolean; v : boolean;

begin

  readln(n);

  d: =n;

  v: =false;

  p: =0;

  while d> 0 do

  begin

      p: =p*10+(d mod 10);

      if a[d mod 10]=true then v: =true else a[d mod 10]: =true;

  end;

  if p=n then writeln('данное число палиндром');

  if not(v) then writeln('все цифры данного числа разные');

end.я не знаю работает ли это, если не работает напиши мне. я исправлю

1)160=240 в восьмой

2)10110101 - объединяем по три цифры, начиная с правой строны. получается:

10   110   101. складываем в каждой такой мини-группе числа между собой. получаем следующее:

1   2   2 -> 101110101 в восьмеричной системе = 122. 

122 переводим в десятичную следующи образом:

122 имеет три разряда. умножаем справа налево так: 2*8^0 + 2*8^1 + 1*8^2 (умножаем на восемь из-за того, что 122 у нас в восьмеричной системе). получаем следующее: 2+16+64=82. ответ: 82 в десятичной

3) по аналогии с п.2 имеем 76 в десятичной