PROGRAM TESTIP(INPUT,OUTPUT); VAR N:CHAR; BEGIN WHILE NOT EOF DO BEGIN READ(N); WRITELN(N); END; END.