Помогите пожалуйста решить задачку с помощью (while... do, repeat... until)
Дана степень натурального числа a. Найти ее показатель.
Заранее спасибо

показатель тоже натуральный? или может быть любым? (в том числе дробным)

скорей всего натуральный, в задании ничего не сказанно об этом

 
var a,n,p,b: integer;
begin
  write('n = '); readln(n); { <--- это - само число }
  write('a = '); readln(a); { <--- это - число в какой-то степени }
  p:=1;b:=0;
  while p<a do begin
    p:=p*n;
    inc(b);
  end;
  writeln('Stepen =', b);
end.

Вот этот код правильный? подскажите плс...

Если показатель натуральный....

Он наверно и должен быть натуральным, в задании ничего не говорится о показателе степени.