var f,g:text;
    n,p,i,time,j,l,c,aux,d,m,h,b:longint;
    a:array[1..2 , 1..200]of longint;
begin
assign(f,'gropi.in');reset(f);
assign(g,'gropi.out');rewrite(g);
readln(f,n,p);
for i:=1 to p do
    begin
    readln(f,c,b);
    a[c,b]:=1;
    end;
readln(f,m);
for i:=1 to m do
    begin
    readln(f,c,b,d,h);
    time:=1;
    if b>h then begin
                aux:=b;
                b:=h;
                h:=aux;
                aux:=c;
                c:=d;
                d:=aux;
                end;
    repeat
            if (b<>h)and(a[c,b]=0)then begin
                                                  if (c<>d)and(h=b)then begin time:=time+1;break end;
                                                 time:=time+1;
                                                 b:=b+1;
                                                 end
            else if (b<>h)and(a[c,b]=1)then begin
                                                    time:=time+1;
                                                    if c=1 then c:=c+1
                                                    else c:=c-1;
                                                    b:=b-1;
                                                    end;
    until h=b;
    writeln(g,time);
    end;
close(G);
end.