{$B-}
program cstrong (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  strongly connected component        پ–}
 {پ–                                                            پ–}
 {پ–    ژg  —p  Œ¾  Œê  پF  ‚o  ‚پ  ‚“  ‚ƒ  ‚پ  ‚Œ              پ–}
 {پ–                                                            پ–}
 {پ–    چى    گ¬    “ْ  پF  ‚P ‚X ‚W ‚T ”N ‚P‚P Œژ              پ–}
 {پ–                                                            پ–}
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}



 const
       n=11;
       stackmax=100;
 type
       stack=array[0..stackmax] of integer;
       ege=array[1..n,1..n] of integer;
       ary=array[1..n] of integer;
 var
       number,low,tag:ary;
       v:ege;
       num,i,j,k,t,p:integer;
       outop1:stack;
       outop2:ege;

{
external proceder sconect(var v,outop2:ege;var outop1:stack;
                           var num:integer;var tag,number,low:ary);
}
{$I B:SCONECT.SRC}

    begin
      for i:=1 to n do
       begin
        for j:=1 to n do
           read(v[i,j]);
        readln
       end;
       sconect(v,outop2,outop1,num,tag,number,low);
         i:=1;
         j:=1;
         while outop1[i]<>0 do
          begin
            writeln(lst,'component');
            writeln(lst,outop1[i]:8);
            while outop2[i,j]<>0 do
              begin
                writeln(lst,outop2[i,j]:8);
                j:=j+1;
              end;
            j:=1;
            i:=i+1;
          end;
      for p:=1 to n do
         writeln(lst,'tag[',p:2,']=',tag[p],'number[',p:2,']=',number[p]:2,
          'low[',p:2,']=',low[p]:2);
      writeln(lst,'num=',num);
     end.
