#include <cstdio>
#include <cstring>
#include <cstdlib>
#include <cmath>
#include <complex>
#include <string>
#include <sstream>
#include <algorithm>
#include <vector>
#include <queue>
#include <stack>
#include <functional>
#include <iostream>
#include <map>
#include <set>
using namespace std;
typedef pair<int,int> P;
typedef long long ll;
typedef vector<int> vi;
typedef vector<ll> vll;
#define pu push
#define pb push_back
#define mp make_pair
#define eps 1e-9
#define INF 2000000000
#define sz(x) ((int)(x).size())
#define fi first
#define sec second
#define SORT(x) sort((x).begin(),(x).end())
#define all(x) (x).begin(),(x).end()
#define EQ(a,b) (abs((a)-(b))<EPS)
struct edge{int from,to,cost;};
int N,M,K,Q;
vector<edge> g[100100];
vector<edge> all;
int d[100100];
bool f[100100];
int depth[100100];
int parent[19][100100];
struct UnionFind
{
	int par[100100];
	int rank[100100];
	void init(int n)
	{
		for(int i=0;i<n;i++)
		{
			par[i]=i;
			rank[i]=0;
		}
		return;
	}
	int find(int i)
	{
		if(par[i]==i)return i;
		else return find(par[i]);
	}
	void unite(int a,int b)
	{
		a=find(a);
		b=find(b);
		if(rank[a]>rank[b])
		{
			par[b]=a;
		}
		else
		{
			par[a]=b;
			if(rank[a]==rank[b])rank[b]++;
		}
		return;
	}
	bool same(int a,int b)
	{
		return find(a)==find(b);
	}
};
void dijkstra()
{
	priority_queue<P,vector<P>,greater<P> > q;
	for(int i=0;i<N;i++)
	{
		d[i]=INF;
		if(f[i])
		{
			d[i]=0;
			q.push(mp(0,i));
		}
	}
	while(!q.empty())
	{
		P a=q.top();
		q.pop();
		int v=a.sec;
		if(d[v]<a.fi)continue;
		for(int i=0;i<g[v].size();i++)
		{
			if(d[g[v][i].to]>d[v]+g[v][i].cost)
			{
				d[g[v][i].to]=d[v]+g[v][i].cost;
				q.push(mp(d[g[v][i].to],g[v][i].to));
			}
		}
	}
	return;
}
void dfs(int v,int p,int d)
{
	parent[0][v]=p;
	depth[v]=d;
	for(int i=0;i<g[v].size();i++)
	{
		if(g[v][i].to!=p)
		{
			dfs(g[v][i].to,v,d+1);
		}
	}
	return;
}
void init()
{
	dfs(0,-1,0);
	for(int k=0;k<18;k++)
	{
		for(int i=0;i<N;i++)
		{
			if(parent[k][i]==-1)parent[k+1][i]=-1;
			else parent[k+1][i]=parent[k][parent[k][i]];
		}
	}
	return;
}
int lca(int u,int v)
{
	int res=min(d[u],d[v]);
	if(depth[u]>depth[v])swap(u,v);
	int x=u,y=v;
	for(int i=0;i<19;i++)
	{
		if((depth[v]-depth[u])>>i&1)
		{
			v=parent[i][v];
		}
	}
	if(u==v)goto skip;
	for(int i=18;i>=0;i--)
	{
		if(parent[i][u]!=parent[i][v])
		{
			u=parent[i][u];
			v=parent[i][v];
		}
	}
	u=parent[0][u];
	skip:;
	while(x!=u)
	{
		x=parent[0][x];
		res=min(res,d[x]);
	}
	while(y!=u)
	{
		y=parent[0][y];
		res=min(res,d[y]);
	}
	return res;
}
bool comp(const edge& x,const edge& y)
{
	return x.cost > y.cost;
}
void input()
{
	cin >> N >> M >> K >> Q;
	for(int i=0;i<M;i++)
	{
		edge e;
		cin >> e.from >> e.to >> e.cost;
		e.from--;e.to--;
		all.pb(e);
		g[e.from].pb(e);
		swap(e.from,e.to);
		g[e.from].pb(e);
	}
	memset(f,false,sizeof(f));
	for(int i=0;i<K;i++)
	{
		int fes;
		cin >> fes;
		fes--;
		f[fes]=true;
	}
	dijkstra();
	for(int i=0;i<all.size();i++)
	{
		all[i].cost=min(d[all[i].from],d[all[i].to]);
	}
	for(int i=0;i<N;i++)
	{
		g[i].clear();
	}
	sort(all.begin(),all.end(),comp);
	UnionFind uf;
	uf.init(N);
	for(int i=0;i<all.size();i++)
	{
		int a=all[i].from,b=all[i].to;
		if(!uf.same(a,b))
		{
			edge e=all[i];
			g[a].pb(e);
			swap(e.from,e.to);
			g[b].pb(e);
			uf.unite(a,b);
		}
	}
	init();
	for(int i=0;i<Q;i++)
	{
		int s,t;
		cin >> s >> t;
		s--;t--;
		cout << lca(s,t) << endl;
	}
	return;
} 
int main()
{
	input();
	return 0;
}

Measured memory_bytes: 24032