{$B-}
program csequen (input,output);
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}
 {پ–                                                            پ–}
 {پ–           گ”  —‌  ‰ب  ٹw  Œ¤  ‹†                           پ–}
 {پ–                                                            پ–}
 {پ–    چu    ژt    –¼  پF  –é   ‹v   ’|   •v                   پ–}
 {پ–                                                            پ–}
 {پ–    ٹw  گ¶  ژپ  –¼  پF  ڈH  ژR  گ´  ”ü                      پ–}
 {پ–                                                            پ–}
 {پ–    ٹw گ¶ ڈط ”ش چ†  پF  ‚Q ‚O ‚r ‚r ‚P ‚Q ‚O‚P              پ–}
 {پ–                                                            پ–}
 {پ–    ‘ه    ٹw    –¼  پF  “Œ    ٹC    ‘ه    ٹw                پ–}
 {پ–                                                            پ–}
 {پ–    ٹw •” ٹw ‰ب –¼  پF  —‌ ٹw •”   ڈî •ٌ گ” —‌ ٹw ‰ب        پ–}
 {پ–                                                            پ–}
 {پ–    ‰غ    ‘è    –¼  پF  ‚‡‚’‚پ‚گ‚ˆ  ‚ƒ‚ڈ‚Œ‚ڈ‚’‚‰‚ژ‚‡        پ–}
 {پ–                                                            پ–}
 {پ–    ژg  —p  Œ¾  Œê  پF  ‚o  ‚پ  ‚“  ‚ƒ  ‚پ  ‚Œ              پ–}
 {پ–                                                            پ–}
 {پ–    چى    گ¬    “ْ  پF  ‚P ‚X ‚W ‚T ”N ‚P‚P Œژ              پ–}
 {پ–                                                            پ–}
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}




 const  n=10;
 type   ary=array[1..n] of integer;
        ege=array[1..n,1..n] of integer;
        coloring=array[1..n] of integer;
 var    e:ege;
        cv:coloring;
        v:ary;
        c,k,j,i:integer;
 {
 external proceder acceptcolor(var e:ege;var v:ary;var cv:coloring);
 }
 {$I B:MOCOLOR.SRC}

 begin
   for k:=1 to n do
     read(v[k]);
   readln;
   for k:=1 to n do
    begin
      for j:=1 to n do
        read(e[k,j]);
        readln
    end;
   acceptcolor(e,v,cv);
   writeln(lst);
   writeln(lst,'------------');
   for k:=1 to n do
     begin
       writeln(lst,'I v[',k:2,']=',cv[k]:2,' I');
       writeln(lst,'------------');
     end;
end.

