var
a:array[0..101,0..101]of char;
ans,c,d,i,j,k,m,n:longint;
procedure ss(x,y:integer);
begin
if a[x-1,y]='6' then begin a[x-1,y]:='7'; inc(ans); ss(x-1,y); end;
if a[x,y-1]='6' then begin a[x,y-1]:='7'; inc(ans); ss(x,y-1); end;
if a[x+1,y]='6' then begin a[x+1,y]:='7'; inc(ans); ss(x+1,y); end;
if a[x,y+1]='6' then begin a[x,y+1]:='7'; inc(ans); ss(x,y+1); end;
end;
begin
assign(input,'ymxpre.in');
assign(output,'ymxpre.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
read(a[i,j]);
if (a[i,j]='0')or(a[i,j]='2')or(a[i,j]='5')then a[i,j]:='6';
end;
readln;
end;
if a[1,1]='6' then
begin
inc(ans);
a[1,1]:='7';
ss(1,1);
end;
if a[n,n]='7' then writeln('yes') else writeln('no');
writeln(ans);
close(input);
close(output);
end.