#include<bits/stdc++.h>

using namespace std;

#ifdef DEBUG
auto&operator<<(auto&o,pair<auto,auto>p){return o<<"("<<p.first<<", "<<p.second<<")";}
auto operator<<(auto&o,auto x)->decltype(x.end(),o){o<<"{";int i=0;for(auto e:x)o<<","+!i++<<e;return o<<"}";}
#define debug(X...)cerr<<"["#X"]: ",[](auto...$){((cerr<<$<<"; "),...)<<endl;}(X)
#else
#define debug(...){}
#endif


#define ll long long
#define pb push_back
#define st first
#define nd second
#define sz(x) (int)(x).size()
#define all(x) (x).begin(),(x).end()
#define FOR(i,l,r) for(int i=(l);i<=(r);i++)
#define ROF(i,r,l) for(int i=(r);i>=(l);i--)
#define endl '\n'
int inf=1000000007;
ll infl=1000000000000000007;
ll mod=998244353;

const int N=100007,S=300,pot=1<<17,LG=17;


int seg[2*pot+7];
int seg1[2*pot+7];

int que(int v,int a,int b,int l,int r)
{
	if(a<=l&&b>=r) return seg[v];
	if(r<a||l>b) return inf;
	return min(que(2*v,a,b,l,(l+r)/2),que(2*v+1,a,b,(l+r)/2+1,r));
}
int que1(int v,int a,int b,int l,int r)
{
	if(a<=l&&b>=r) return seg1[v];
	if(r<a||l>b) return -inf;
	return max(que1(2*v,a,b,l,(l+r)/2),que1(2*v+1,a,b,(l+r)/2+1,r));
}

vector<pair<int,int>>W[N];


int BIT[N];

void ins(int v)
{
	for(;v<N;v+=v&-v) BIT[v]++;
}
int QUE(int v)
{
	int res=0;
	for(;v>0;v-=v&-v) res+=BIT[v];
	return res;
}

struct Z
{
	int l,r,i;
};

bool cmp(Z a,Z b)
{
	if(a.l/S==b.l/S) return a.r<b.r;
	else return a.l<b.l;
}

vector<int>G[N];
int ile[N];
int c[N];
int res[N];
int pre[N],post[N],cc;
int ord[N];
int d[N];
int xd[N];
int skok[N][LG];

void dfs(int v,int o)
{
	
	pre[v]=++cc;
	ord[cc]=v;
	skok[v][0]=o;
	FOR(i,1,LG-1) skok[v][i]=skok[skok[v][i-1]][i-1];
	for(auto u:G[v])
	{
		if(u==o) continue;
		d[u]=d[v]+1;
		dfs(u,v);
	}
	post[v]=cc;
	xd[pre[v]]=post[v];
}

bool anc(int u,int v)
{
	return pre[u]<=pre[v]&&post[u]>=post[v];
}
int lca(int u,int v)
{
	if(anc(u,v)) return u;
	ROF(i,LG-1,0) if(!anc(skok[u][i],v)) u=skok[u][i];
	debug("lca",u,v,skok[u][0]);
	return skok[u][0];
}


int ans;

set<int>SS;

void add(int v)
{
	debug("add",v);
	if(sz(SS)>2)
	{
		int D=-inf;
		set<int>::iterator it=SS.lower_bound(pre[v]);
		if(*it!=inf)
		{
			int l=lca(v,ord[*it]);
			D=max(D,d[l]);
		}
		it--;
		if(*it!=-inf)
		{
			int l=lca(v,ord[*it]);
			D=max(D,d[l]);
		}
		debug(d[v]-D);
		ans+=d[v]-D;
	}
	else ans+=d[v]+1;
	SS.insert(pre[v]);
}



void del(int v)
{
	debug("del",v);
	SS.erase(pre[v]);
	if(sz(SS)>2)
	{
		int D=-inf;
		set<int>::iterator it=SS.lower_bound(pre[v]);
		if(*it!=inf)
		{
			int l=lca(v,ord[*it]);
			D=max(D,d[l]);
		}
		it--;
		if(*it!=-inf)
		{
			int l=lca(v,ord[*it]);
			D=max(D,d[l]);
		}
		ans-=d[v]-D;
	}
	else ans-=d[v]+1;
}

signed main()
{
	ios_base::sync_with_stdio(0);
	cin.tie(0);
	cout.tie(0);
	int n,m,q;
	cin>>n>>m>>q;
	FOR(i,1,n-1)
	{
		int a,b;
		cin>>a>>b;
		G[a].pb(b);
		G[b].pb(a);
	}
	dfs(1,1);
	FOR(i,1,2*pot)
	{
		seg[i]=inf;
		seg1[i]=-inf;
	}
	for(int i=1;i<=m;i++)
	{
		cin>>c[i];
		seg[i+pot-1]=pre[c[i]];
		seg1[i+pot-1]=pre[c[i]];
	}
	for(int i=pot-1;i>0;i--)
	{
		seg[i]=min(seg[2*i],seg[2*i+1]);
		seg1[i]=max(seg1[2*i],seg1[2*i+1]);
	}
	vector<Z>Q;
	FOR(i,1,q)
	{
		int l,r;
		cin>>l>>r;
		Q.pb({l,r,i});
		int L=que(1,l,r,1,pot),R=que1(1,l,r,1,pot);
		W[L].pb({R,i});
	}
	sort(all(Q),cmp);
	int L=1,R=0;
	SS.insert(inf);
	SS.insert(-inf);
	for(auto x:Q)
	{
		debug("Q",x.l,x.r);
		while(L<x.l)
		{
			del(c[L]);
			L++;
		}
		while(L>x.l)
		{
			L--;
			add(c[L]);
		}
		while(R>x.r)
		{
			del(c[R]);
			R--;
		}
		while(R<x.r)
		{
			R++;
			add(c[R]);
		}
		res[x.i]=ans;
	}
	FOR(i,1,n)
	{
		if(i>1) ins(xd[i]);
		for(auto [j,k]:W[i]) res[k]-=QUE(n)-QUE(j-1);
	}
	FOR(i,1,q) cout<<res[i]<<endl;
	
	return 0;
}