program crusade;
Type
fxz1=record x,y:integer;end;
fxz2=array[1..250000] of fxz1;
fxz3=array[1..250000] of longint;
var
f1,f2:text;
lz,gr:fxz2;
ans:fxz3;
i,j,m,n,a,b,step,x:longint;
begin
assign(f1,'crusade.in');
assign(f2,'crusade.out');
reset(f1);rewrite(f2);
readln(f1,n,m,a,b);
for i:=1 to a do
readln(f1,gr[i].x,gr[i].y);
for i:=1 to b do
begin
readln(f1,lz[i].x,lz[i].y);
ans[i]:=250000;
end;
for i:=1 to b do
for j:=1 to a do
begin
x:=(abs(gr[j].x-lz[i].x)+abs(gr[j].y-lz[i].y));
if x<=ans[i] then ans[i]:=x;
if ans[i]=0 then break;
end;
for i:=1 to b do
writeln(f2,ans[i]);
close(f1);close(f2);
end.