PROGRAM COPY(INPUT,OUTPUT); VAR C: CHAR; BEGIN WHILE NOT EOF DO BEGIN WHILE NOT EOLN DO BEGIN READ(C); WRITE(C) END; READLN; WRITELN END END.