program crusade;
var
  a1,b1:array[1..500] of integer;
  a2,b2:array[1..500] of integer;
  h:array[1..500] of integer;
  x,y,m,ss,s,n,i,j:integer;

  fin,fout:text;

begin
  assign(fin,'crusade.in');
  assign(fout,'crusade.out');
  reset(fin);
  rewrite(fout);

  read(fin,x,y,m,n);
  for i:=1 to m do read(fin,a1[i],b1[i]);
  for i:=1 to n do read(fin,a2[i],b2[i]);
  for i:=1 to n do
  begin
    ss:=2000;
    for j:=1 to m do
    begin
      if (abs(a1[j]-a2[i])+abs(b1[j]-b2[i]))<ss then 
      ss:=abs(a1[j]-a2[i])+abs(b1[j]-b2[i]);
    end;
    h[i]:=ss;
  end;
  for i:=1 to n do writeln(fout,h[i]);

  close(fin);
  close(fout);
end.