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