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

Формулировка задачи:

Пожалуйста помогите с написанием кода. Напишите программу нахождения номера элемента последовательности по его значению. Формула для вычисления представлена в индивидуальном задании. Массивами пользоваться запрещено. Во всех заданиях запрещено использовать операции возведения в степень, экспоненту (кроме явно указанной такой функции в задании) и логарифмом (кроме явно указанной такой функции в задании). an = n · 4 в степени n Или помогите исправить код:

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.

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

Листинг программы

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.

Объяснение кода листинга программы

Объявляется переменная n типа longint
Объявляется переменная an типа longint
Выводится текст An =, и считывается значение введенной пользователем переменной an
Выводится текст Число и значение переменной an
Устанавливается значение переменной n равным 0
Запускается цикл while с условием, что an деленное на 4 равно 0 и an больше, чем n
Внутри цикла увеличивается значение n на 1, а переменная an делится на 4
После выхода из цикла, проверяется условие, если an равно n, то выводится текст - это число №, значение переменной n, и в
Иначе выводится текст не является членом
Выводится текст последовательности n*4^n
Программа ждет ввода пользователя