PROGRAM EXPONZ(INPUT,OUTPUT,INFILE,OUTFILE);
VAR PI, SPI :INTEGER;INFILE,OUTFILE:TEXT;
BEGIN
RESET(INFILE);
REWRITE(OUTFILE);
WHILE NOT EOF(INFILE) DO
  BEGIN
READ(INFILE,PI);
WRITELN(OUTFILE,PI);
  END
END.