#include <cstdio>
#include <cstring>
#include <iostream>
#include <string>
#include <cmath>
#include <bitset>
#include <vector>
#include <map>
#include <set>
#include <queue>
#include <deque>
#include <algorithm>
#include <complex>
#include <unordered_map>
#include <unordered_set>
#include <random>
#include <cassert>
#include <fstream>
#include <utility>
#include <functional>
#include <time.h>
#include <stack>
#include <array>
#define popcount __builtin_popcount
using namespace std;
using ll=long long;
typedef pair<int, int> P;
template<typename T>
struct BIT{
    vector<T> bit;
    int size;
    BIT(int n):size(n), bit(n+1, 0){}
    T sum(int i){ //[0, i)
        T s=0;
        while(i>0){
            s+=bit[i];
            i-=(i&(-i));
        }
        return s;
    }
    T sum(int l, int r){ //[l, r)
        return sum(r)-sum(l);
    }
    void add(int i, T x){
        i++;
        while(i<=size){
            bit[i]+=x;
            i+=(i&(-i));
        }
    }
};
template<typename Monoid, typename OperatorMonoid=Monoid>
struct LazySegmentTree{
	using F=function<Monoid(Monoid, Monoid)>;
	using G=function<Monoid(Monoid, OperatorMonoid, int)>;
	using H=function<OperatorMonoid(OperatorMonoid, OperatorMonoid)>;
	int sz;
	vector<Monoid> data;
	vector<OperatorMonoid> lazy;
	const F f;
	const G g;
	const H h;
	const Monoid e1;
	const OperatorMonoid e0;

	LazySegmentTree(int n, const F f, const G g, const H h, const Monoid &e1, const OperatorMonoid &e0): f(f), g(g), h(h), e1(e1), e0(e0){
		sz=1;
		while(sz<n) sz<<=1;
		data.resize(2*sz-1, e1);
		lazy.resize(2*sz-1, e0);
	}

	void build(vector<Monoid> v){
		for(int i=0; i<v.size(); i++) data[i+sz-1]=v[i];
		for(int i=sz-2; i>=0; i--) data[i]=f(data[2*i+1], data[2*i+2]);
	}

	void eval(int k, int l, int r){
		if(lazy[k]!=e0){
			data[k]=g(data[k], lazy[k], r-l);
			if(k<sz-1){
				lazy[2*k+1]=h(lazy[2*k+1], lazy[k]);
				lazy[2*k+2]=h(lazy[2*k+2], lazy[k]);
			}
		}
		lazy[k]=e0;
	}

	void update(int a, int b, const OperatorMonoid &x, int k, int l, int r){
		eval(k, l, r);
		if(r<=a || b<=l) return;
		if(a<=l && r<=b){
			lazy[k]=h(lazy[k], x);
			eval(k, l, r);
		}else{
			update(a, b, x, 2*k+1, l, (l+r)/2);
			update(a, b, x, 2*k+2, (l+r)/2, r);
			data[k]=f(data[2*k+1], data[2*k+2]);
		}
	}
	void update(int a, int b, const OperatorMonoid &x){
		return update(a, b, x, 0, 0, sz);
	}

	Monoid find(int a, int b, int k, int l, int r){
		eval(k, l, r);
		if(b<=l || r<=a) return e1;
		if(a<=l && r<=b) return data[k];
		else return f(find(a, b, 2*k+1, l, (l+r)/2), find(a, b, 2*k+2, (l+r)/2, r));
	}
	Monoid find(int a, int b){
		return find(a, b, 0, 0, sz);
	}
	Monoid operator[](const int &k){
		return find(k, k+1);
	}
};
int n, q;
int a[20020];
int l[20020], r[20020];
const int d=200;
vector<int> vq[500];
int ans[20020];
int main()
{
    cin>>n>>q;
    for(int i=0; i<n; i++){
        cin>>a[i]; a[i]--;
    }
    for(int i=0; i<q; i++){
        cin>>l[i]>>r[i];
        l[i]--;
        vq[l[i]/d].push_back(i);
    }
    auto f=[&](int x, int y){ return min(x, y);};
    auto g=[&](int a, int x, int len){
        return a+x;
    };
    auto h=[&](int x, int y){
        return x+y;
    };
    const int INF=1e9;
    vector<int> v0(n);
    for(int i=0; i<=(n-1)/d; i++){
        if(vq[i].empty()) continue;
        sort(vq[i].begin(), vq[i].end(), [&](int x, int y){ return r[x]>r[y];});
        BIT<int> bit1(n), bit2(n), bit(n);
        LazySegmentTree<int> seg(n, f, g, h, INF, 0);
        seg.build(v0);
        int s=0;
        for(int j=0; j<l[vq[i][0]]; j++){
            bit1.add(a[j], 1);
            s+=bit.sum(a[j]+1, n);
            bit.add(a[j], 1);
            seg.update(a[j], n, -1);
        }
        for(int j=r[vq[i][0]]; j<n; j++){
            bit2.add(a[j], 1);
            s+=bit.sum(a[j]+1, n);
            bit.add(a[j], 1);
            seg.update(a[j]+1, n, 1);
        }
      //cout<<vq[i][0]<<" "<<seg.find(0, n)<<endl;
        ans[vq[i][0]]=s+(l[vq[i][0]]+seg.find(0, n))*(r[vq[i][0]]-l[vq[i][0]]);
        int r1=r[vq[i][0]];
        int l1=l[vq[i][0]];
        for(int j=1; j<vq[i].size(); j++){
            int k=vq[i][j];
            while(r1>r[k]){
                r1--;
                seg.update(a[r1]+1, n, 1);
                s+=bit1.sum(a[r1]+1, n);
                s+=bit2.sum(a[r1]);
                bit2.add(a[r1], 1);
            }
            if(l1<l[k]){
                while(l1<l[k]){
                    seg.update(a[l1], n, -1);
                    s+=bit1.sum(a[l1]+1, n);
                    s+=bit2.sum(a[l1]);
                    bit1.add(a[l1], 1);
                    l1++;
                }
            }else if(l1>l[k]){
                while(l1>l[k]){
                    l1--;
                    seg.update(a[l1], n, 1);
                    bit1.add(a[l1], -1);
                    s-=bit1.sum(a[l1]+1, n);
                    s-=bit2.sum(a[l1]);
                }
            }
          //cout<<k<<" "<<seg.find(0, n)<<endl;
            ans[k]=s+(l[k]+seg.find(0, n))*(r[k]-l[k]);
        }
    }
    for(int i=0; i<q; i++) cout<<ans[i]<<endl;
    return 0;
}