#include <bits/stdc++.h>

using namespace std;
#define int long long
#define app push_back
#define all(x) (x).begin(),(x).end()
#ifdef LOCAL
#define debug(...) [](auto...a){ ((cout << a << ' '), ...) << endl;}(#__VA_ARGS__, ":", __VA_ARGS__)
#else
#define debug(...)
#endif
#ifdef LOCAL
#define __int128 long long
#endif // LOCAL
const int inf=1e18;
const int maxn=2e5+5;
int a[maxn];int col[maxn];bool used[maxn];int h[maxn];int de[maxn];int u[maxn][20];bool cy[maxn];int di[maxn];
int me[maxn];
int mo[maxn];
int f[maxn];
vector<int> ps;
vector<int> mem[maxn];
int32_t main()
{
    ios_base::sync_with_stdio(false);cin.tie(0);cout.tie(0);
    int n,l,r;cin>>n>>l>>r;
    set<int> unu;
    f[0]=0;fill(f+1,f+maxn,inf);
    for(int i=0;i<=n;++i)
    {
        for(int j=l;j<=r;++j)
        {
            f[i+j]=min(f[i+j],f[i]+1);
        }
    }
    for(int i=1;i<=n;++i) {cin>>a[i];u[i][0]=a[i];}
    for(int j=1;j<20;++j) {for(int i=1;i<=n;++i) {u[i][j]=u[u[i][j-1]][j-1];}}
    for(int i=1;i<=n;++i) {cy[u[i][19]]=true;}
    for(int i=1;i<=n;++i)
    {
        if(cy[i] && !used[i])
        {
            int x=i;int c=0;
            while(true)
            {
                col[x]=i;
                h[x]=c;
                ++c;
                x=a[x];
                if(x==i) break;
            }
            de[i]=c;
            ps.app(de[i]);
        }
    }
    for(int i=1;i<=n;++i)
    {
        if(cy[i]) {me[i]=i;continue;}
        di[i]=0;
        int x=i;
        for(int j=19;j>=0;--j)
        {
            if(!cy[u[x][j]])
            {
                di[i]+=(1<<j);x=u[x][j];
            }
        }
        me[i]=a[x];
        di[i]++;
        mo[de[col[me[i]]]]=max(mo[de[col[me[i]]]],di[i]);
    }
    sort(all(ps));ps.erase(unique(all(ps)),ps.end());
    auto ok=[&](int p,int x)->bool
    {
        return ((l+2*p-1-x)/p!=(r+2*p-x)/p);
    };
    for(int p:ps)
    {
        vector<int> ans(mo[p]+p+1);fill(all(ans),inf);ans[0]=0;
        for(int k=0;k<ans.size();++k){
        for(int i=0;i<ans.size();++i)
        {
            for(int j=l;j<=r;++j)
            {
                int x=i+j;
                while(x>=ans.size()) x-=p;
                ans[x]=min(ans[x],ans[i]+1);
            }
        }
        }
        for(int i=0;i<ans.size()-p;++i) {ans[i]=min(ans[i+p],ans[i]);}
        mem[p]=ans;
    }
    for(int i=1;i<=n;++i)
    {
        int di1=di[i];
        di[i]=0;
        int x=i;
        while(!cy[x]) {++di[i];x=a[x];}
        assert(di1==di[i]);
        assert(x==me[i]);
    }
    auto up=[&](int x,int h)
    {
        for(int i=19;i>=0;--i)
        {
            if(h & (1<<i))
            {
                x=u[x][i];
            }
        }
        return x;
    };
    int q1;cin>>q1;
    while(q1--)
    {
        int x,y;cin>>x>>y;
        if(col[me[x]]!=col[me[y]])
        {
            cout<<(-1)<<'\n';
            continue;
        }
        if(!cy[y])
        {
            if(me[x]!=me[y] || di[x]<di[y])
            {
                cout<<(-1)<<'\n';
                continue;
            }
            if(x==y)
            {
                cout<<0<<'\n';continue;
            }
            int h=di[x]-di[y];
            if(up(x,h)!=y)
            {
                cout<<(-1)<<'\n';continue;
            }
            cout<<f[h]<<'\n';
        }
        int p=de[col[me[x]]];
        int o=((h[y]-h[me[x]])%p+p)%p;
        o+=di[x];
        if(o<mem[p].size())
        {
            cout<<(mem[p][o]==inf ? -1 : mem[p][o])<<'\n';
        }
        else
        {
            for(int i=20;i>=0;--i)
            {
                if(o-p*(1<<i)>=((int) (mem[p].size()))) {o-=p*(1<<i);}
            }
            o-=p;
            cout<<(mem[p][o]==inf ? -1 : mem[p][o])<<'\n';
        }
    }
    return 0;
}
/*
2 101 101
2 1
1
1 2
*/