Нахождение номера элемента последовательности по его значению

program sdssdasdasdasdasdasdas;
Var a1,an:real;
    n,p,i:integer;
 
    x:real;
Begin
 
write('Введите значение элемента An=');
readln(an);
  a1:=4;
writeln('1=4');
n:=1;
while a1<=an do
 Begin
  p:=1;
  For i:=1 To n Do
  begin
  p:=4*n
    end;
  x := n*p;
   inc(n);
 
    writeln(n,'=',x);
  a1:= (x);
 end;
if a1<=an then write('Число ',(an):2:1,' не пренадлежит последовательности')
else write('Номер числа ',(an):2:1,' в последовательности=',n);
readln
End.

  n:=1;
  p:=1;
while a1<=an do
 Begin
  p:=p*4;  {с каждой итерацией цикла по n - в p будет вычисляться 4^n}
....................
 end;

program sdssdasdasdasdasdasdas;
 
var
  a1, an:  integer;
  n, p, i: integer;
 
  x: integer;
begin
  Write('Введите значение элемента An=');
  readln(an);
  a1 := 1;
  writeln('1=4');
  n := 1;
  p := 1;
  while a1 < an do
  begin
    p := 4 * p;
    x := n * p;
 
    writeln(n, '=', x);
    a1 := x;
 
    Inc(n);
  end;
  Dec(n);
 
  if a1 <> an then
    writeln('Число ', (an), ' не пренадлежит последовательности')
  else
    writeln('Номер числа ', (an), ' в последовательности=', n);
 
  readln;
end.

var n, an: longint;
begin
  write('An = ');
  readln(an);
  write('Число ', an);
  n := 0;
  while (an mod 4 = 0) and (an > n) do //можно для скорости (an and 3) and (an > n)
    begin
      inc(n);
      an := an div 4
    end;
  if an = n
    then write(' - это число № ', n, ' в')
    else write(' не является членом');
  write(' последовательности n*4^n');
  readln
end.