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