#include <string>
#include <vector>
#include<iostream>
#include<cstdio>
#include<cstdlib>
#include<stack>
#include<queue>
#include<cmath>
#include<algorithm>
#include<functional>
#include<list>
#include<deque>
#include<bitset>
#include<set>
#include<map>
#include<unordered_map>
#include<cstring>
#include<sstream>
#include<complex>
#include<iomanip>
#include<numeric>
#include<cassert>
#define X first
#define Y second
#define pb push_back
#define rep(X,Y) for (int (X) = 0;(X) < (Y);++(X))
#define reps(X,S,Y) for (int (X) = S;(X) < (Y);++(X))
#define rrep(X,Y) for (int (X) = (Y)-1;(X) >=0;--(X))
#define repe(X,Y) for ((X) = 0;(X) < (Y);++(X))
#define peat(X,Y) for (;(X) < (Y);++(X))
#define all(X) (X).begin(),(X).end()
#define rall(X) (X).rbegin(),(X).rend()
#define eb emplace_back
#define UNIQUE(X) (X).erase(unique(all(X)),(X).end())

using namespace std;
typedef long long ll;
typedef pair<int,int> pii;
typedef pair<ll,ll> pll;
template<class T> using vv=vector<vector<T>>;
template<class T> ostream& operator<<(ostream &os, const vector<T> &t) {
os<<"{"; rep(i,t.size()) {os<<t[i]<<",";} os<<"}"<<endl; return os;}
template<class S, class T> ostream& operator<<(ostream &os, const pair<S,T> &t) { return os<<"("<<t.first<<","<<t.second<<")";}
template<class T> inline bool MX(T &l,const T &r){return l<r?l=r,1:0;}
template<class T> inline bool MN(T &l,const T &r){return l>r?l=r,1:0;}
const ll MOD=1e9+7;
const int nn=512345;
ll bit[nn+1];

ll sum(int i){++i;
  ll s=0;
  while(i>0){
    s+=bit[i];//ok?
    i-=i&-i;
  }
  return s;
}

void add(int i,int x){++i;
  while(i<=nn){
    bit[i]+=x;
    i+=i&-i;
  }
}

int N;

void solve(const vector<int> &a,vector<ll> &re){
  re.resize(N);
  vv<int> vals(N);
  int n=a.size();
  rep(i,n) vals[a[i]].pb(i);
  fill(bit,bit+nn+1,0);
  ll cnt=0;
  rep(i,N){
    for(int x:vals[i]) re[i]+=sum(x)*(cnt-sum(x));
    cnt+=vals[i].size();
    for(int x:vals[i]) add(x,1);
  }
  fill(bit,bit+nn+1,0);
  rrep(i,N){
    for(int x:vals[i]) re[i]-=sum(x);
    reps(j,1,vals[i].size()){
      const ll tmp=j*(vals[i].size()-j);
      add(vals[i][j-1],tmp);
      add(vals[i][j],-tmp);
    }
  }
}

int main(){
  ios_base::sync_with_stdio(false);
  cout<<fixed<<setprecision(0);
  int n;
  cin>>n;
  vector<int> a(n);
  vector<int> zip;
  rep(i,n){
    cin>>a[i];
    zip.pb(a[i]);
  }
  int q;
  cin>>q;
  vector<pii> qs(q);
  rep(i,q){
    cin>>qs[i].X>>qs[i].Y;
    zip.pb(qs[i].X);
    zip.pb(qs[i].Y);
  }
  zip.pb(-1);
  sort(all(zip));
  UNIQUE(zip);
  for(int &x:a) x=lower_bound(all(zip),x)-zip.begin();
  for(pii &p:qs){
    p.X=lower_bound(all(zip),p.X)-zip.begin()-1;
    p.Y=lower_bound(all(zip),p.Y)-zip.begin();
  }
  N=zip.size();
  vector<ll> re,re2;
  solve(a,re);
  //
  cout<<a<<zip;
  for(int &x:a) x=N-x-1;
  solve(a,re2);
  //cout<<a<<qs;
  //cout<<re;
  rep(i,N) re[i]+=re2[N-i-1];
  //cout<<re;
  //re.insert(re.begin(),0);
  re.pb(0);
  rep(i,N) re[i+1]+=re[i];
  //cout<<re;
  for(pii p:qs){
    cout<<re[p.Y]-re[p.X]<<endl;
  }
  return 0;
}