var f,g:text;
    n,m,k,nr,i,j,x1,y1,x2,y2:longint;
    a,b:array[1..50,1..50] of longint;
procedure fill(x,y:longint);
begin
   inc(nr); b[x,y]:=nr;
   if (x>1) and (a[x-1,y]<>0) and (b[x-1,y]=0) then fill(x-1,y);
   if (x<n) and (a[x+1,y]<>0) and (b[x+1,y]=0) then fill(x+1,y);
   if (y>1) and (a[x,y-1]<>0) and (b[x,y-1]=0) then fill(x,y-1);
   if (y<n) and (a[x,y+1]<>0) and (b[x,y+1]=0) then fill(x,y+1);
end;
begin
    assign(f,'kdrum.in'); reset(f);
    assign(g,'kdrum.out'); rewrite(g);
    readln(f,n,m,k);
    readln(f,x1,y1,x2,y2);
    for i:=1 to n do
       for j:=1 to m do
          begin read(f,a[i,j]); b[i,j]:=0; end;
    nr:=0; fill(x1,y1);
    writeln(g,b[x2,y2]);
    close(f); close(g);
end.