Исправить программу - Turbo Pascal (33860)

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

Дана степень числа А. Найти её показатель. Не въехал что к чему, написал вот это :

var A,n:integer;
begin
writeln('Vvedi A');
readln(a);
writeln('Vvedi b');
readln(n);
write('Stepen chisla A : ',exp(n*ln(a)));
readln;
write('Pokazatel: ', n );
 
readln
 
end.

Но есть условие, что надо использовать оператор цикла, а причем он тут и куда его воткнуть, я не пойму=\ Исправьте программу, пожалуйста, кто понимает)

Решение задачи: «Исправить программу»

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

var
  a, b, n : integer;
begin
  n := 0;
  write('введите степень числа A:');
  readln(b);
  write('введите число A:');
  readln(a);
  while b <> 1 do
  begin
    b := b div a;
    inc(n)
  end;
  writeln('показатель: ', n);
end.

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

В начале объявляются три переменные: a, b и n типа integer.
Переменная n инициализируется значением 0.
Выводится сообщение «введите степень числа A:», и переменная b считывается из ввода.
Выводится сообщение «введите число A:», и переменная a считывается из ввода.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной b не станет равным 1.
Внутри цикла значение переменной b делится на значение переменной a, и инкрементируется значение переменной n.
После выхода из цикла выводится сообщение «показатель: », и значение переменной n.