# https://yukicoder.me/submissions/1101991
# を流用。（半年前に解いているのに、解き方覚えていなかったが……）

import sys
input = sys.stdin.readline

N=int(input())
A=list(map(int,input().split()))

Q=int(input())
Queries=[list(map(int,input().split())) for i in range(Q)]

S=A[:]
for x,y in Queries:
    S.append(x)
    S.append(y)

S=sorted(set(S))
D={S[i]:i for i in range(len(S))}

A=[D[a] for a in A]

for i in range(Q):
    Queries[i][0]=D[Queries[i][0]]
    Queries[i][1]=D[Queries[i][1]]

LIST=[[] for i in range(len(S))]

for i in range(N):
    LIST[A[i]].append(i)

LEN=10**6+1

BIT=[0]*(LEN+1) # 1-indexedなtree. 配列BITの長さはLEN+1にしていることに注意。

def update(v,w): # index vにwを加える
    while v<=LEN:
        BIT[v]+=w
        v+=(v&(-v)) # v&(-v)で、最も下の立っているビット. 自分を含む大きなノードへ. たとえばv=3→v=4

def getvalue(v): # [1,v]の区間の和を求める
    ANS=0
    while v!=0:
        ANS+=BIT[v]
        v-=(v&(-v)) # 自分より小さい自分の和を構成するノードへ. たとえばv=14→v=12へ
    return ANS

def bisect_on_BIT(x): # [1,ind]の和がはじめてx以上になるindexを探す

    if x<=0:
        return 0
    
    ANS=0
    h=1<<(LEN.bit_length()-1) # LEN以下の最小の2ベキ
    while h>0:
        if ANS+h<=LEN and BIT[ANS+h]<x:
            x-=BIT[ANS+h]
            ANS+=h
        h//=2

    return ANS+1 # LENまでの和がx未満のとき, LEN+1を返すことに注意

ANS=[0]*len(S)
for i in range(len(S)):
    for x in LIST[i]:
        a=getvalue(x)
        b=getvalue(LEN)
        ANS[i]+=a*(b-a)
        
    for x in LIST[i]:
        update(x+1,1)

BIT=[0]*(LEN+1) # 1-indexedなtree. 配列BITの長さはLEN+1にしていることに注意。

for i in range(len(S)-1,-1,-1):
    for x in LIST[i]:
        a=getvalue(x)
        b=getvalue(LEN)
        ANS[i]+=a*(b-a)
        
    for x in LIST[i]:
        update(x+1,1)

LEFT=[0]*len(S)
RIGHT=[0]*len(S)

for i in range(1,N):
    RIGHT[A[i]]+=1
SUM=0

for i in range(1,N-1):

    if A[i-1]==A[i]:
        SUM-=LEFT[A[i]]*RIGHT[A[i]]
    else:
        SUM-=LEFT[A[i-1]]*RIGHT[A[i-1]]
        SUM-=LEFT[A[i]]*RIGHT[A[i]]
    
    LEFT[A[i-1]]+=1
    RIGHT[A[i]]-=1
    
    if A[i-1]==A[i]:
        SUM+=LEFT[A[i]]*RIGHT[A[i]]
    else:
        SUM+=LEFT[A[i-1]]*RIGHT[A[i-1]]
        SUM+=LEFT[A[i]]*RIGHT[A[i]]

    S2=0

    ANS[A[i]]-=SUM-LEFT[A[i]]*RIGHT[A[i]]
    #print(score,SUM,LEFT,RIGHT)

#score2=0
#for i in range(N):
#    for j in range(i+1,N):
#        for k in range(j+1,N):
#            if A[i]==A[k] and A[j]!=A[i]:
#                score2+=1

#print(score2)

#print(ANS)

S=[0]
for a in ANS:
    S.append(S[-1]+a)

for x,y in Queries:
    print(S[y+1]-S[x])