//infoarena amenzi
type pnod = ^tnod;
     tnod =  record
                x:byte;
                c:integer;
                next:pnod;
                end;
     rr= record
        head,last:pnod;
        end;

var n,m,k,p:integer;
    mm : array[1..150] of rr;
    a:array[1..150,0..3500] of longint;
    y:array[1..150,0..3500] of integer;
    tt:array[0..3500] of rr;

procedure addlist(var r:rr; x,c:integer);
var p:pnod;
begin
new(p); p^.x:=x; p^.c:=c; p^.next:=nil;
if r.head= nil then r.head:=p
else r.last^.next:=p;
r.last:=p;
end;


procedure calcul;
var i,j:integer;
    p,q:pnod;
begin
for i:=1 to n do
        for j:=0 to 3500 do a[i,j]:=-1;
a[1,0]:=0; addlist(tt[0],1,0);
for j:=0 to 3500 do
      begin
      q:=tt[j].head;
      while q<> nil do
      // for i:=1 to n do
      // if a[i,j] <> -1 then
                begin
                i:=q^.x;
                p:=mm[i].head;
                while p <> nil do
                        begin
                         if j+p^.c <= 3500 then
                        if a[p^.x,j+p^.c] < a[i,j]+y[p^.x,j+p^.c] then
                                begin
                                a[p^.x,j+p^.c]:=a[i,j]+y[p^.x,j+p^.c];
                                addlist(tt[j+p^.c],p^.x,0);
                                end;
                        p:=p^.next;
                        end;
                q:=q^.next;
                end;

      end;
end;

procedure citire;
var i,x,z,c:integer;
begin
assign(input,'amenzi.in');reset(input);
assign(output,'amenzi.out'); rewritE(output);
readln(n,m,k,p);
for i:=1 to m do
        begin
        readln(x,z,c);
        addlist(mm[x],z,c);
        addlist(mm[z],x,c);
        end;
for i:=1 to k do
        begin
        readln(x,z,c);
        y[x,z]:=y[x,z]+c;
        end;
for i:=1 to n do addlist(mm[i],i,1);
calcul;
for i:=1 to p do
        begin
        readln(x,z);
        writeln(a[x,z]);
        end;
close(input);
close(output);
end;

begin
citire;
end.