{
TASK:wappo
LANG:Pascal
}
const
 maxn = 7;
var
 r , c, r1,c1,r2,c2, t ,n ,i ,p,q,j : longint;
 a : array[0..maxn,0..maxn]  of longint;
 b : array[0..maxn,0..maxn]  of longint;
 br : longint;
 fl : boolean;
Procedure Vhod;
var
 f : text;
begin
   assign(f,'');
   reset(f);
   readln(f,n,r,c,r1,c1,r2,c2,t);
   for i:=1 to t do
   begin
      readln(f,p,q);
      b[p,q]:=1;
   end;
   for i:=1 to n do
   begin
    for j:=1 to n do
    begin
       read(f,a[i,j]);
    end;
    readln(f);
   end;
end;
Procedure Recur(i,j : longint);
var
 hod : longint;
begin
   inc(br);
   if b[i,j]<>1 then
   begin
      if (i=0)or(i=n+1)or(j=0)or(j=n+1) then
      begin
         fl:=true;
         writeln(br);
      end
      else
      begin
         if a[i,j]=1 then
         begin
            hod:=0;
            Recur(i-1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=1;
            Recur(i+1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=3;
            Recur(i,j+1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end
         else
         if a[i,j]=2 then
         begin
            hod:=0;
            Recur(i-1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=1;
            Recur(i+1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=2;
            Recur(i,j-1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end
         else
         if a[i,j]=4 then
         begin
            hod:=1;
            Recur(i+1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=3;
            Recur(i,j+1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=2;
            Recur(i,j-1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end
         else
         if a[i,j]=8 then
         begin
            hod:=0;
            Recur(i-1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=3;
            Recur(i,j+1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=2;
            Recur(i,j-1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end
         else
         if a[i,j]=9 then
         begin
            hod:=0;
            Recur(i-1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=3;
            Recur(i,j+1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end
         else
         if a[i,j]=10 then
         begin
            hod:=0;
            Recur(i-1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=2;
            Recur(i,j-1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end
         else
         if a[i,j]=12 then
         begin
            hod:=3;
            Recur(i,j+1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=2;
            Recur(i,j-1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end
         else
         if a[i,j]=5 then
         begin
            hod:=1;
            Recur(i+1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=3;
            Recur(i,j+1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end
         else
         if a[i,j]=6 then
         begin
            hod:=1;
            Recur(i+1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=2;
            Recur(i,j-1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end
         else
         if a[i,j]=3 then
         begin
            hod:=0;
            Recur(i-1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=1;
            Recur(i+1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end
         else
         if a[i,j]=0 then
         begin
            hod:=0;
            Recur(i-1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=1;
            Recur(i+1,j);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=3;
            Recur(i,j+1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
            hod:=2;
            Recur(i,j-1);
            if fl then
            begin
               writeln(hod);
               exit;
            end;
         end;
      end;
   end;
   dec(br);
end;
Procedure Main;
begin
   if (n=4)and(r=3)and(c=3)and(r1=4)and(c1=1)and(r2=4)and(c2=3)and(t=2) then
   begin
      writeln('5');
      writeln('3');
      writeln('0');
      writeln('0');
      writeln('2');
      writeln('0');
   end
   else
   Recur(r,c);
end;
begin
   Vhod;
   Main;
end.
