FUNCTION POWER(X,Y :REAL) :REAL;
BEGIN
  POWER := EXP( LN(X) * Y)
END;
   *#$%&'(           GLENTRY MST   Y*+,-/012345