#include<iostream>
#include<cstdio>
#include<cstring>
#define lson p<<1
#define rson p<<1|1
#define CI const int
#define int unsigned long long
using namespace std;
const int N=2e5+5e4+5;
int T,n,m,id,l[N],r[N],a[2][N];
int read(int& v)
{
	char ch; int f=1;
	for(ch='*';!isdigit(ch) && ch!='-';ch=getchar());
	if(ch=='-')  f=-1,ch=getchar();
	for(v=0;isdigit(ch);v=v*10+ch-'0',ch=getchar());
	v*=f;
return v;
}
struct SegTree
{
	int l,r,v;
	SegTree(CI&a ,CI& b,CI& c):l(a),r(b),v(c){}
	SegTree(){}
}t[2][N<<2];
void build(int p,int l,int r,int op)
{
	t[op][p]=SegTree(l,r,0);
	if(l==r){ t[op][p].v=a[op][l]; return; }
	int mid=(t[op][p].l+t[op][p].r)>>1;
	build(lson,l,mid,op),build(rson,mid+1,r,op);
	t[op][p].v=max(t[op][lson].v,t[op][rson].v);
}
int query(int p,int l,int r,int op)
{
	if(l<=t[op][p].l && t[op][p].r<=r)  return t[op][p].v;
	int mid=(t[op][p].l+t[op][p].r)>>1,rec=0;
	if(l<=mid)  rec=max(rec,query(lson,l,r,op));
	if(mid<r)  rec=max(rec,query(rson,l,r,op));
return rec;
}
namespace sub1
{
	const int M=3e3+5;
	int f[M][M];
	void main()
	{
		for(int i=1;i<=m;i++)
		{
			int ans=0;
			for(int p=l[i];p<=r[i];p++)
				for(int q=p;q<=r[i];q++)
					ans+=query(1,p,q,0)*query(1,p,q,1);
			printf("%lld\n",ans);
		}
	}
}
void solve()
{
	read(id),read(n);
	for(int i=1;i<=n;i++)  read(a[0][i]);
	for(int i=1;i<=n;i++)  read(a[1][i]);
	build(1,1,n,0),build(1,1,n,1);
	read(m);
	for(int i=1;i<=m;i++)  read(l[i]),read(r[i]);
	sub1::main();
}
signed main()
{
	freopen("match.in","r",stdin);
	freopen("match.out","w",stdout);
	/*read(T);
	while(T--)*/  solve();
return 0;
}