program poisk_shir;

{$APPTYPE CONSOLE}
 var

 a:array [1..100,1..100] of integer;
n,i,j,start,finish:integer;
b:array [1..100] of integer;
f1:text;
procedure pr(k,v:integer);
 var j:integer;
 	begin
b[k]:=v;
if (v=finish)or(k=n) then begin
if (v=finish) then begin
   for j:=1 to k do write(b[j],' ');
writeln;
end;
end
else
   for j:=1 to n do if a[v,j]=1 then pr(k+1,j);
    	end;

 begin
assign(f1,'graph.dat');
Reset(f1);
readln(f1,n);
for i:=1 to n do
for j:=1 to n do read(f1,a[i,j]);
close(f1);
start:=1;
finish:=6;
pr(1,start);
readln;
readln;
  end.