{$I-}
program   cminspn3(input,output);
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}
 {پ–                                                            پ–}
 {پ–           گ”  —‌  ‰ب  ٹw  ‰‰  ڈK  ‚h                       پ–}
 {پ–                                                            پ–}
 {پ–    چu    ژt    –¼  پF  –é   ‹v   ’|   •v                   پ–}
 {پ–                                                            پ–}
 {پ–    ٹw  گ¶  ژپ  –¼  پF  ‘‌   ‘ٍ   ‘P   ژq                   پ–}
 {پ–                                                            پ–}
 {پ–    ٹw گ¶ ڈط ”ش چ†  پF  ‚Q ‚P ‚r ‚r ‚P ‚P ‚T ‚X             پ–}
 {پ–                                                            پ–}
 {پ–    ‘ه    ٹw    –¼  پF  “Œ    ٹC    ‘ه    ٹw                پ–}
 {پ–                                                            پ–}
 {پ–    ٹw •” ٹw ‰ب –¼  پF  —‌ ٹw •”   ڈî •ٌ گ” —‌ ٹw ‰ب        پ–}
 {پ–                                                            پ–}
 {پ–    ‰غ    ‘è    –¼  پF  MINIMAL SPANNING TREE 3             پ–}
 {پ–                                                            پ–}
 {پ–    ژg  —p  Œ¾  Œê  پF  ‚o  ‚پ  ‚“  ‚ƒ  ‚پ  ‚Œ              پ–}
 {پ–                                                            پ–}
 {پ–    چى    گ¬    “ْ  پF  ‚P ‚X ‚W ‚T ”N ‚X Œژ                پ–}
 {پ–                                                            پ–}
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}


const
          maxnode = 9 ;
type
          mat =array[1..maxnode,1..maxnode] of integer;
          arr = array[1..maxnode,1..maxnode] of integer;
          edge = record
                   node1,node2,weight:integer;
                 end;

var
          i,j   : integer;
          adjfile,wgtfile :text;
          adjmat : mat;
          wgtmat : mat;
          t      : arr;

{
external procedure minspn3(var adjmat,wgtmat:mat;
                           var t :arr);
 }
{$I B:MINSPN3.SRC}
procedure readadj;
var
          i,j :integer;
 begin
   assign(adjfile,'B:ADJ');
   reset(adjfile);
   for i:= 1 to maxnode do
    begin
      for j := 1 to maxnode do read(adjfile,adjmat[i,j]);
      readln(adjfile);
    end;
   close(adjfile)
 end;

procedure readwgt;
var
         i,j :integer;
 begin
   assign(wgtfile,'B:WGT');
   reset(wgtfile);
   for i := 1 to maxnode do
    begin
      for j := 1 to maxnode do read(wgtfile,wgtmat[i,j]);
      readln(wgtfile);
    end;
   close(wgtfile)
 end;

 begin
   readadj;
   readwgt;
   minspn3(adjmat,wgtmat,t);
   for i :=1 to maxnode do
     begin
       for j := 1 to maxnode do write(lst,t[i,j]:8);
       writeln(lst)
     end;
end.
