1program copydata(data, output);
2var
3    ch: char;
4    data: text;
5begin
6    reset(data);
7    while not eof(data) do begin
8	while not eoln(data) do begin
9	    read(data, ch);
10	    write(ch)
11	end;
12	readln(data);
13	writeln
14    end
15end { copydata }.
16