{No viena fajla ierakstit katru otro simbolu} uses crt; var f1,f2: text; c: char; s1,s2: string; i: integer; begin clrscr; writeln('Imya pervogo fajla'); readln(s1); writeln('Imya vtorogo fajla'); readln(s2); assign(f1,s1); assign(f2,s2); reset(f1); rewrite(f2); while not eof(f1) do begin while not eoln(f1) do begin read(f1,c); write(f2,c);write(c); end; readln(f1); writeln(f2);writeln; end; close(f1); close(f2); readkey end.