Циклы, (while... do, repeat... until) Опции

[damizza]

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

[мисс_граффити]

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

[damizza]

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

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

[damizza]

 
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.

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

[мисс_граффити]

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

[damizza]

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