#include<iostream>
#include<cstdio>
#include<algorithm>
#include<cmath>
#include<cstring>
#include<set>
using namespace std;
typedef long long ll;
inline int read()
{int x=0,f=1; char ch=getchar();while(ch<'0'||ch>'9') { if(ch=='-') f=-1; ch=getchar(); }while(ch>='0'&&ch<='9') { x=(x<<1)+(x<<3)+(ch^48); ch=getchar(); }return x*f;
}
const int N=2e6+7;
int fir[N],from[N<<1],to[N<<1],cntt;
inline void add(int a,int b) { from[++cntt]=fir[a]; fir[a]=cntt; to[cntt]=b; }
int f[N][21],dep[N],son[N],sz[N];//f是倍增数组，dep是节点深度，son是重儿子，sz是子树大小
void dfs1(int x)//预处理上面四个数组
{dep[x]=dep[f[x][0]]+1; sz[x]=1; int mx=0;for(int i=1;i<=20;i++) f[x][i]=f[f[x][i-1]][i-1];for(int i=fir[x];i;i=from[i]){int &v=to[i]; if(v==f[x][0]) continue;f[v][0]=x; dfs1(v);if(sz[v]>sz[son[x]]) son[x]=v;sz[x]+=sz[v];}
}
struct dat{int x,y,id;inline bool operator < (const dat &tmp) const {return x<tmp.x;}
}d[N];//存询问
int n,Q;
int cnt[N],ans[N],id[N],dfs_clock;//id是dfs序为i的节点编号
void dfs2(int x,bool flag)//flag判断是否保留cnt
{id[++dfs_clock]=x; int L=dfs_clock;//轻儿子子树dfs序的左区间if(!son[x]) { if(flag) cnt[dep[x]]++; return; }for(int i=fir[x];i;i=from[i]){int &v=to[i]; if(v==f[x][0]||v==son[x]) continue;dfs2(v,0);//走轻儿子
    }int R=dfs_clock,t=lower_bound(d+1,d+Q+1,(dat){x,0,0})-d;//R是轻儿子子树右区间,t是第一个u为x的询问的位置dfs2(son[x],1);//最后走重儿子并保留cntfor(int i=L;i<=R;i++) cnt[ dep[id[i]] ] ++;//枚举轻儿子子树,更新cntfor(int i=t;d[i].x==x;i++) { ans[d[i].id]=cnt[dep[d[i].y]]-1; }//更新ansif(!flag) for(int i=L;i<=dfs_clock;i++) cnt[ dep[id[i]] ]--;//清空cnt
}
int rt[N],tot;//注意是森林，要存每个数的根
int main()
{n=read(); int a,b;for(int i=1;i<=n;i++){a=read();add(a,i);if(!a) rt[++tot]=i;}for(int i=1;i<=tot;i++) dfs1(rt[i]);Q=read();for(int i=1;i<=Q;i++){a=read(),b=read(); int t=a;for(int j=20;j>=0;j--) if(b&(1<<j)) t=f[t][j];d[i].x=t,d[i].y=a,d[i].id=i;}sort(d+1,d+Q+1);for(int i=1;i<=tot;i++) dfs2(rt[i],0);for(int i=1;i<=Q;i++) printf("%d ",ans[i]);return 0;
}