PROGRAM PWRTEST(OUTPUT);
VAR EP,TWO:REAL;
    SEVEN:INTEGER;
    OUTFILE:TEXT;
FUNCTION POWER(VAR X:REAL;VAR Y:INTEGER):REAL;EXTERN;
BEGIN
WRITELN('CALLING POWER');
TWO:=2.0;
SEVEN:=7;
EP:=POWER(TWO,SEVEN);
WRITELN('RETURNED FROM POWER');
WRITELN('2.0^7= ',EP);
WRITELN('CALLING POWER AGAIN');
EP:=POWER(TWO,SEVEN);
WRITELN('RETURNED FROM 2ND CALL');
END.