记录编号	111810	评测结果	AAAAAAAAAA
题目名称	冲出亚马逊之圣战前夜	最终得分	100
用户昵称	转瞬の电流	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2014-07-14 09:36:00	内存使用	0.17 MiB

var
a:array[0..101,0..101]of char;
b,c,d,i,j,k,m,n:longint;
procedure cha(x,y:integer);
begin
if a[x-1,y]='6' then begin a[x-1,y]:='7'; inc(b); cha(x-1,y); end;
if a[x,y-1]='6' then begin a[x,y-1]:='7'; inc(b); cha(x,y-1); end;
if a[x+1,y]='6' then begin a[x+1,y]:='7'; inc(b); cha(x+1,y); end;
if a[x,y+1]='6' then begin a[x,y+1]:='7'; inc(b); cha(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]);
     case a[i,j] of
     '0':a[i,j]:='6';
     '2':a[i,j]:='6';
     '5':a[i,j]:='6';
     end;
     end;
  readln;
  end;
if a[1,1]='6' then
  begin
  inc(b);
  a[1,1]:='7';
  cha (1,1);
  end;
if a[n,n]='7' then writeln('yes') else writeln('no');
writeln(b);
close(input);
close(output);
end.