%OBJECT = YES
PROGRAM EXPONZ(OUTPUT);
VAR PI, SPI :REAL;
BEGIN
PI:=3.14159;
%OBJECT OFF
WRITE(PI);
%OBJECT ON
END.