{Visa faila katru treso simbolu} uses crt; var f1,f2: text; c: string[3]; s1,s2: string; 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 read(f1,c); write(copy(c,3,1)); write(f2,copy(c,3,1)); end; readln(f1); writeln(f2); close(f1); close(f2); readkey end.