program crusade;
var
  a:array[1..25000,1..2]of longint;
  b:array[1..25000,1..3]of longint;
  m,n,c,d:integer;
procedure go(i:longint);
var
  j:longint;
Begin
  for j:=1 to c do begin
    if (abs(a[j,1]-b[i,1])+abs(a[j,2]-b[i,2]))<b[i,3] then b[i,3]:=abs(a[j,1]-b[i,1])+abs(a[j,2]-b[i,2]);
  end;
End;
procedure ini;
var
  i:longint;
Begin
  assign(input,'crusade.in');
  assign(output,'crusade.out');
  reset(input); rewrite(output);
  readln(n,m,c,d);
  for i:=1 to c do readln(a[i,1],a[i,2]);
  for i:=1 to d do begin
    readln(b[i,1],b[i,2]);
    b[i,3]:=maxint;
    go(i);
  end;
End;
procedure ot;
var
 i:longint;
Begin
  for i:=1 to d do writeln(b[i,3]);
  close(input); close(output);
End;
Begin
  ini;
  ot;
End.