program Project1;
var g:array[1..10,1..10]of integer;
    i,j,vexn:integer;
    filein,fileout:text;
procedure start();
var i,j:integer;
begin
     assign(filein,'E:\in.txt');
     readln(vexn);
     for i:=1 to 10 do
     begin
       for j:=1 to 10 do read(g[i,j]);
       readln;
     end;
end;

procedure dfs();
var i:integer;
    visit:array[1..10]of boolean;
procedure temp(i:integer);
var j:integer;
begin
     writeln('Vex',i,'is visited.');
     for j:=1 to vexn do
         if (visit[j]=false)and(g[i,j]=1) then temp(j);
end;
begin
     for i:=1 to vexn do
         if visit[i]=false then
         begin
              visit[i]:=true;
              temp(i);
         end;
end;

begin
     start();
     dfs;
     readln;
end.