{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.