PROGRAM PWRTEST(OUTPUT);
VAR EP:REAL;
FUNCTION POWER(X:REAL;Y:INTEGER):REAL;EXTERN;
BEGIN
WRITELN('CALLING POWER');
EP:=POWER(2.0,7);
WRITELN('2.0^7= ',EP);
END.