{
TASK:lab101
LANG:PASCAL
}

type point = record
              x, y : longint;
             end;


var a : array[0..10, 0..10] of longint;
    trap : array[0..10, 0..10] of point;
    i, j, k, l, o, p, m, n : longint;
    x1, y1, x2, y2, xe, ye, x, y : longint;



procedure input;
var f : text;
 begin
  assign(f, '');
  reset(f);
  readln(f, m, n);
  for i := 1 to m do
    begin
     for j := 1 to n do
       read(f, a[i, j]);
     readln(f);
    end;
  readln(f, p);
  for i := 1 to p do
    begin
     read(f, x, y);
     readln(f, trap[x, y].x, trap[x, y].y);
    end;
  readln(f, x1, y1);
  readln(f, x2, y2);
  readln(f, xe, ye);
  close(f);
 end;


begin
 input;
 writeln(1);
end.

