VAR
 ft,fn,ft1:TEXT;
 S,Sn:String;
 n,IOr:Integer;
BEGIN
 {$I-}
 Assign(ft,'D:\text.txt');
 ReSet(ft);
 Assign(fn,'D:\num.txt');
 ReSet(fn);
 Assign(ft1,'D:\text1.txt');
 ReWrite(ft1);
 Repeat
  IOr:=0;
  Readln(ft,S);
  If IOr=0 then
   begin
    Read(fn,n);
    IOr:=IOResult;
    If IOr=0 then
     begin
      Str(n,Sn);
      S:=S+Sn;
     end;
   end;
  Writeln(ft1,S);
 Until EoF(ft);
 Close(ft);
 Close(fn);
 Close(ft1);
END.