#include <bits/stdc++.h>

using namespace std;

ofstream fout("amenzi.out");


class InParser {
private:
	FILE *fin;
	char *buff;
	int sp;

	char read_ch() {
		++sp;
		if (sp == 4096) {
			sp = 0;
			fread(buff, 1, 4096, fin);
		}
		return buff[sp];
	}

public:
	InParser(const char* nume) {
		fin = fopen(nume, "r");
		buff = new char[4096]();
		sp = 4095;
	}

	InParser& operator >> (int &n) {
		char c;
		while (!isdigit(c = read_ch()) && c != '-');
		int sgn = 1;
		if (c == '-') {
			n = 0;
			sgn = -1;
		} else {
			n = c - '0';
		}
		while (isdigit(c = read_ch())) {
			n = 10 * n + c - '0';
		}
		n *= sgn;
		return *this;
	}

	InParser& operator >> (long long &n) {
		char c;
		n = 0;
		while (!isdigit(c = read_ch()) && c != '-');
		long long sgn = 1;
		if (c == '-') {
			n = 0;
			sgn = -1;
		} else {
			n = c - '0';
		}
		while (isdigit(c = read_ch())) {
			n = 10 * n + c - '0';
		}
		n *= sgn;
		return *this;
	}
};

const int nmax = 155;
int n, m, k, p, infractiune[nmax][3505], dp[nmax][3505], minn[nmax];
vector <pair <int, int> > G[nmax];

int main(){
    InParser fin("amenzi.in");
    fin >> n >> m >> k >> p;
    for (int i = 1; i <= n; ++i){
        minn[i] = 1e9;
    }
    while (m--) {
        int a, b, c;
        fin >> a >> b >> c;
        G[a].push_back({b, c});
        G[b].push_back({a, c});
        minn[a] = min(minn[a], c);
        minn[b] = min(minn[b], c);
    }
    while (k--) {
        int a, b, c;
        fin >> a >> b >> c;
        infractiune[a][b] += c;
    }
    memset(dp, -1, sizeof dp);
    dp[1][0] = infractiune[1][0];
    for (int timp = 1; timp <= 3500; ++timp){
        for (int i = 1; i <= n; ++i){
            dp[i][timp] = dp[i][timp - 1];
            if (timp - minn[i] >= 0){
                for (auto it : G[i]){
                int nod = it.first, cost = it.second;
                if (timp - cost >= 0)
                    dp[i][timp] = max(dp[i][timp], dp[nod][timp - cost]);
                }
            }
            if (dp[i][timp] >= 0) dp[i][timp] += infractiune[i][timp];
        }
    }
    while (p--) {
        int a, b;
        fin >> a >> b;
        fout << dp[a][b] << "\n";
    }
    return 0;
}