[lmikle]

Где-то так:

Код:

uses Math;

function IsPower(M,N : Integer) : Boolean;
var
  P, I : Integer;
begin
  I := 0;
  P := 0;
  Result := False;
  While P < M Do 
    Begin
       Inc(I);
       P := Power(N,I);
       Result := P = M;
       If Result Then Break;
    End;
end;

функция предполагает, что числа положительные.