#include <bits/stdc++.h>
using namespace std;

const int N=2e5+5;

int p[N], a[N], b[N], dist[N], n, m;

namespace first
{
	vector <int> vec[N];

	void work()
	{
		memset(dist,0x3f,sizeof(dist));
		for(int i=1;i<=m;i++)
		{
			int x=a[i], y=b[i];
			for(int j=0;j<=n;j++)
			{
				if(x==y)
				{
					dist[i]=j;
					break;
				}

				x=p[x];
			}
		}

		for(int i=1;i<=m;i++)
			if(dist[i]==0x3f3f3f3f)
			{
				printf("-1\n");
				return;
			}

		for(int i=1;i<=n+m+2;i++)
		{
			bool can=true;
			for(int i=1;i<=m;i++)
				if(dist[i])
					can=false;

			if(can)
			{
				printf("%d\n",i-1);
				return;
			}

			for(int i=1;i<=n;i++)
				vec[i].clear();

			for(int j=1;j<=m;j++)
				vec[a[j]].push_back(j);

			for(int i=1;i<=n;i++)
			{
				int Max=0, point=0;
				for(auto x:vec[i])
					if(dist[x]>Max)
						Max=dist[x], point=x;

				if(a[point]!=b[point])
					a[point]=p[a[point]], dist[point]--;
			}
		}

		assert(0);
	}
}

namespace second
{
	vector <int> vec[N*2];

	bool check(int k)
	{
		for(int i=1;i<=n+m+1;i++)
			vec[i].clear();

		for(int i=1;i<=m;i++)
		{
			if(a[i]>b[i]+k)
				return false;
		
			vec[min(n+m+1,b[i]+k)].push_back(a[i]);
		}

		priority_queue <int> q;
		for(int i=n+m+1;i>=1;i--)
		{
			for(auto x:vec[i])
				q.push(x);

			if(q.size())
			{
				int x=q.top();
				q.pop();
				if(x>i)
					return false;
			}
		}

		if(q.size())
			return false;
		return true;
	}

	void work()
	{
		int l=0, r=n+m+1, ans=-1;
		while(l<=r)
		{
			int mid=(l+r)/2;
			if(check(mid))
				ans=mid, r=mid-1;
			else
				l=mid+1;
		}
		printf("%d\n",ans);
	}
}

int main()
{
	cin >> n;
	for(int i=1;i<=n;i++)
		scanf("%d",&p[i]);

	cin >> m;
	for(int i=1;i<=m;i++)
		scanf("%d %d",&a[i],&b[i]);

	if(n<=3000 && m<=300)
		first::work();
	else
		second::work();
	return 0;
}