# include <bits/stdc++.h>
using namespace std;
typedef long long ll;
int n,a[500010],sum[500010],stk[500010];
struct Frac
{
	int a,b;// a^2/b
	Frac(int _a=0,int _b=0):a(_a),b(_b){}
	bool operator<(const Frac &x)const{return (ll)a*a*x.b<(ll)x.a*x.a*b;}
}maxn[500010],ans[300010];
struct Query
{
	int l,r,id;
	bool operator<(const Query &x)const{return l>x.l;}
}que[300010];
vector<Frac> vec[500010];
void update(int x,const Frac &y){for(int i=x;i<=n;i+=i&(-i)) maxn[i]=max(maxn[i],y);}
Frac query(int x)
{
	Frac ans(0,1);
	for(int i=x;i;i-=i&(-i)) ans=max(ans,maxn[i]);
	return ans;
}
int main()
{
	int q,tp=0,cnt=0;
	cin>>n;
	mt19937 Rand(0);
	for(int i=1;i<=n;i++) a[i]=(int)(Rand()%2001)-1000/*scanf("%d",&a[i])*/,sum[i]=sum[i-1]+a[i];
	for(int i=1;i<=n;i++)
	{
		while(tp && sum[stk[tp]]>=sum[i]) tp--;
		for(int j=0;j<=tp;j++) vec[stk[j]+1].emplace_back(sum[i]-sum[stk[j]],i-stk[j]);
		cnt+=tp+1;
		stk[++tp]=i;
	}
	tp=0;
	for(int i=n;i>=0;i--)
	{
		while(tp && sum[stk[tp]]>sum[i]) tp--;
		for(int j=1;j<=tp;j++) vec[i+1].emplace_back(sum[stk[j]]-sum[i],stk[j]-i);
		cnt+=tp;
		stk[++tp]=i;
	}
	for(int i=1;i<=n;i++) maxn[i]=Frac(0,1);
	cin>>q;
	for(int i=1;i<=q;i++) scanf("%d%d",&que[i].l,&que[i].r),que[i].id=i;
	sort(que+1,que+q+1);
	for(int i=n,j=1;i>=1;i--)
	{
		for(Frac v:vec[i]) update(i+v.b-1,v);
		for(;j<=q && que[j].l==i;j++) ans[que[j].id]=query(que[j].r);
	}
	for(int i=1;i<=q;i++)
	{
		ll a=(ll)ans[i].a*ans[i].a,b=ans[i].b,g=__gcd(a,b);
		printf("%lld %lld\n",a/g,b/g);
	}
	return 0;
}