Function NlogX(X: Real; N:Real): Real;

begin
  NlogX = Ln(X) / Ln(N);
end;