{<<<< Power >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 16.4 -- Last mod 2/1/86   }

FUNCTION Power(Mantissa,Exponent : Real) : Real;

BEGIN
  Power := Exp(Ln(Mantissa) * Exponent)
END;
