Program gropi;
VAR
 fl,fc,m,n,c,sl,sc,y,i,j:word;
 f,g:text;
 a:array [1..2,1..300] of byte;
begin
 assign(f,'gropi.in');reset(f);
 assign(g,'gropi.out');rewrite(g);
 readln(f,c,n);
 for fl:=1 to n do
  begin
   readln(f,sc,sl);
   a[sc,sl]:=1;
  end;
 readln(f,m);
 for y:=1 to m do
  begin
   readln(f,sl,sc,fl,fc);
   if(sc>fc) then
    begin
     i:=sl;j:=sc;
     sl:=fl;sc:=fc;
     fl:=i;fc:=j;
    end;
   i:=0;
   while(sl<>fl)and(sc<>fc) do
    begin
     if(sl-1<>fl)and(sl+1<>fl) then
      begin
       if(a[sl,sc+1]=0) then inc(sc)
        else
         if(sl=1) then inc(sl)
                  else dec(sl);
      end;
     inc(i);
    end;
   writeln(g,i);
  end;
 close(f);close(g);
end.