PROGRAM READTEST(INFILE,OUTPUT);
VAR INFILE:TEXT;
    I:INTEGER;
BEGIN
RESET(INFILE);
WHILE NOT EOF(INFILE) DO
  BEGIN
  WHILE NOT EOLN(INFILE) DO
    BEGIN
    READ(INFILE,I);
    WRITELN(I);
    END;
  READLN(INFILE);
  END;
END.