FUNCTION POWER(MANTISSA,EXPONENT : REAL) : REAL;

BEGIN
  POWER := EXP(LN(MANTISSA) * EXPONENT)
END;