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

struct BIT {
	vector<long long> bit;

	BIT(int n) : bit(n) {}

	void update(int k, long long v) {
		for (k++; k < bit.size(); k += k & -k) {
			bit[k] += v;
		}
	}

	long long query(int k) {
		long long res = 0;
		for (k++; k > 0; k -= k & -k) {
			res += bit[k];
		}
		return res;
	}
};

const int H = 18;
const int N = 1 << H;
int seg[H + 1][N];
int *L[N * 2], *R[N * 2];

int build(int k = 1, int d = 0, int l = 0, int r = N) {
	if (d < H) {
		L[k] = R[k] = seg[d] + l;
		R[k] += build(k * 2 + 0, d + 1, l, (l + r) / 2);
		R[k] += build(k * 2 + 1, d + 1, (l + r) / 2, r);
		merge(L[k * 2 + 0], R[k * 2 + 0], L[k * 2 + 1], R[k * 2 + 1], L[k]);
	}
	return R[k] - L[k];
}

int query(int a, int b, int x, int k = 1, int l = 0, int r = N) {
	if (r <= a || b <= l) return 0;
	if (a <= l && r <= b) return upper_bound(L[k], R[k], x) - L[k];
	int L = query(a, b, x, k * 2 + 0, l, (l + r) / 2);
	int R = query(a, b, x, k * 2 + 1, (l + r) / 2, r);
	return L + R;
}

int query2(int a, int b, int x, int k = 1, int l = 0, int r = N) {
	if (r <= a || b <= l) return 0;
	if (a <= l && r <= b) return R[k] - lower_bound(L[k], R[k], x);
	int L = query2(a, b, x, k * 2 + 0, l, (l + r) / 2);
	int R = query2(a, b, x, k * 2 + 1, (l + r) / 2, r);
	return L + R;
}

int main() {
	int n;
	cin >> n;

	vector<int> a(n);
	for (int i = 0; i < n; i++) scanf("%d", &a[i]);

	vector<int> A(a);
	int Q;
	cin >> Q;
	vector<int> ll(Q), rr(Q);
	for (int i = 0; i < Q; i++) {
		scanf("%d %d", &ll[i], &rr[i]);
		A.push_back(ll[i]);
		A.push_back(rr[i]);
	}

	sort(A.begin(), A.end());
	A.erase(unique(A.begin(), A.end()), A.end());
	for (int i = 0; i < n; i++) a[i] = lower_bound(A.begin(), A.end(), a[i]) - A.begin();
	for (int i = 0; i < Q; i++) {
		ll[i] = lower_bound(A.begin(), A.end(), ll[i]) - A.begin();
		rr[i] = lower_bound(A.begin(), A.end(), rr[i]) - A.begin();
	}
	for (int i = 0; i < n; i++) {
		seg[H][i] = a[i];
		L[i + N] = seg[H] + i;
		R[i + N] = L[i + N] + 1;
	}
	build();

	vector<long long> L(A.size() + 2), R(A.size() + 2);
	for (int i = 0; i < n; i++) R[a[i]]++;
	BIT bit(A.size() + 10);

	vector<long long> cnt(A.size() + 2);

	for (int i = 0; i < n; i++) {
		bit.update(a[i], -R[a[i]] * L[a[i]]);
		R[a[i]]--;
		bit.update(a[i], R[a[i]] * L[a[i]]);

		long long s = bit.query(a[i] - 1);
		long long S = bit.query(bit.bit.size() - 2) - bit.query(a[i]);
		cnt[a[i]] += -s + (int64_t)query(0, i, a[i] - 1) * query(i + 1, N, a[i] - 1);
		cnt[a[i]] += -S + (int64_t)query2(0, i, a[i] + 1) * query2(i + 1, N, a[i] + 1);

		bit.update(a[i], -R[a[i]] * L[a[i]]);
		L[a[i]]++;
		bit.update(a[i], R[a[i]] * L[a[i]]);
	}

	vector<long long> sum(A.size() + 2);
	for (int i = 0; i < A.size() + 1; i++) {
		sum[i + 1] = sum[i] + cnt[i];
	}

	for (int i = 0; i < Q; i++) {
		printf("%lld\n", sum[rr[i] + 1] - sum[ll[i]]);
	}
}