#include<bits/stdc++.h>
using namespace std;
const int N=1e6+10,B=20;
int n,I,U;
struct node
{
	long long vl[N],u1[N],u2[N],tmp[N];
	int Z;
	pair<long long,long long>ask(int d,int k)
	{
		long long ans=0;
		long long v1=vl[d		]-vl[d+U/2	],
				  v2=vl[d+U/2	]-vl[d+U	];
		int r =(k&U-1),z=k-r;
		if(r<U/2)
		{
			v1-=vl[d+U+z]-vl[d+k+1+U];
			v1-=vl[d+k+1]-vl[d+U/2+z];
			v2-=vl[d+U/2+z]-vl[d+U+z];
		}
		else
		{
			v1-=vl[d+z+U]-vl[d+z+U/2+U];
			v2-=vl[d+z+U/2+U]-vl[d+k+1+U];
			v2-=vl[d+k+1]-vl[d+U+z];
		}
		return make_pair(v1,v2);
	}
	void shrink(int W)
	{
		while(Z>W)
		{
			if(Z>U)u2[Z-U]+=u2[Z];
			u1[Z]+=u2[Z];u1[Z-1]+=u1[Z];
			vl[Z]+=u1[Z];u1[Z]=u2[Z]=0;--Z;
		}
	}
	void ins(int d,int v){Z=max(Z,d),u2[d]+=v,tmp[d]+=v;}
}V,C;
int tmp[N];
vector<pair<int,int>>Q[N];
vector<int>to[N];
int v[N];
long long ans[N];
void ins(int d,int v){V.ins(d,v>>I&1),C.ins(d,1);}
void shrink(int W){V.shrink(W),C.shrink(W);}
long long ask(int d,int k)
{
	auto k1=V.ask(d,k),k2=C.ask(d,k);
	return (0ll+k1.first+k2.second-k1.second)<<I;
}
void dfs(int u,int f,int D)
{
//	cerr<<"DFS: "<<u<<" "<<f<<" "<<D<<" "<<v[u]<<endl;
//	shrink(0);
//	for(int j=1;j<=n;++j)
//		cerr<<C.tmp[j]<<",";
//	cerr<<"  \n";
//	for(int j=1;j<=n;++j)
//		cerr<<C.vl[j]<<",";
//	cerr<<"   \n";
	for(int j=1;j<=n;++j)
	{
		auto x=C.ask(j,2);
//		cerr<<x.first<<" "<<x.second<<endl;
	}
	for(auto k:Q[u])ans[k.second]-=ask(D,min(k.first,n-D));
//	assert(V.Z==C.Z&&V.Z==D-1);
	ins(D,v[u]);
	for(int v:to[u])dfs(v,u,D+1);
	shrink(D-1);
	for(auto k:Q[u])ans[k.second]+=ask(D,min(k.first,n-D));
}
int main()
{
	cin>>n;for(int i=1;i<=n;++i)cin>>v[i];
	for(int i=2,u;i<=n;++i)cin>>u,to[u].push_back(i);
	int q;cin>>q;for(int i=1,x,k;i<=q;++i)cin>>x>>k,Q[x].emplace_back(k,i); 
	for(int i=0;i<B;++i)
	{
		#define mem(z) memset(V.z,0,sizeof V.z);memset(C.z,0,sizeof C.z)
		mem(tmp);mem(vl);mem(u1);mem(u2);V.Z=C.Z=0;
		I=i,U=(1<<I+1);dfs(1,0,1);//for(int i=1;i<=q;++i)cerr<<ans[i]<<",";cerr<<endl;
	}
	for(int i=1;i<=q;++i)cout<<ans[i]<<"\n";
}