PROGRAM EXPONZ(INPUT,OUTPUT); VAR PI, SPI :REAL; BEGIN WHILE NOT EOF DO BEGIN READ(PI); WRITELN(PI); END END.