PROGRAM PRINT(INFILE,OUTPUT);
VAR INFILE:FILE OF INTEGER;
BEGIN
  RESET(INFILE);
  WHILE NOT EOF(INFILE) DO
  BEGIN
    WRITELN(INFILE^);
    GET(INFILE)
  END;
END.