PROGRAM TESTIP(INPUT,OUTPUT);
VAR N:INTEGER;
BEGIN
WHILE NOT EOF DO
  BEGIN
  WRITELN(INPUT^);
  GET(INPUT)
  END;
END.