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

[damizza]

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

[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.

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