PROGRAM EXPONZ(OUTPUT);
VAR PI, SPI :REAL;
%OBJECT ON
FUNCTION POWER(X:REAL; Y:INTEGER):REAL;
VAR Z:REAL;
BEGIN Z:=1;
  WHILE Y>0 DO
  BEGIN
    WHILE NOT ODD(Y) DO
    BEGIN Y:=Y DIV 2;; X:=SQR(X)
    END;
    Y:=Y-1;Z:=X*Z
  END;
  POWER:=Z
END;
BEGIN
PI:=3.14159;
WRITELN(2.0,7,POWER(2.0,7));
SPI:=POWER(PI,2);
WRITELN(PI,2,SPI);
WRITELN(SPI,2,POWER(SPI,2));
WRITELN(PI,4,POWER(PI,4));
END.