PROGRAM EXPONZ(OUTFILE);
VAR PI, SPI :REAL; OUTFILE:PACKED FILE OF CHAR;
BEGIN
PI:=3.14159;
REWRITE(OUTFILE);
WRITELN(OUTFILE,PI);
END.