PROGRAM EXPONZ(INFILE,OUTFILE);
VAR PI, SPI :REAL;INFILE,OUTFILE:TEXT;
BEGIN
RESET(INFILE);
REWRITE(OUTFILE);
READ(INFILE,PI);
WRITELN(OUTFILE,PI);
END.