#include<iostream>
#include<cmath>
#include<vector>
#include<algorithm>
#include<unordered_map>
#include<set>
#define um unordered_map
using namespace std;
const int N=2e5+5;
int val[N],id[N],pos[N],tot;
struct interval
{
  int l,r;
  bool operator<(interval b)const
  {
    return r<b.r;
  }
  bool operator==(interval b)const
  {
    return l==b.l&&r==b.r;
  }
};
struct Hash
{
  size_t operator()(interval b)const
  {
    return b.l*N+b.r;
  }
};
vector<interval> a[N];
set<int> s;
um<interval,int,Hash> Map;
interval note[N];
void add(int x)
{
  s.insert(val[x]);
  auto k=s.find(val[x]);
  if(s.size()==1)return;
  if(k==s.begin())
    {
      tot+=abs(id[*k]-id[*(++k)]);
      return;
    }
  auto kkk=k;++kkk;
  if(kkk==s.end())
    {
      tot+=abs(id[*k]-id[*(--k)]);
      return;
    }
  auto kk=k;kk--;
  tot-=abs(id[*kkk]-id[*kk]);
  tot+=abs(id[*k]-id[*kk]);
  tot+=abs(id[*k]-id[*kkk]);
}
void del(int x)
{
  if(!x)return;
  auto k=s.find(val[x]);
  auto kkk=k;kkk++;
  auto kk=k;--kk;
  if(k==s.begin())
    {
      tot-=abs(id[*k]-id[*(kkk)]);
      s.erase(k);
      return;
    }
  if(kkk==s.end())
    {
      tot-=abs(id[*k]-id[*kk]);
      s.erase(k);
      return;
    }
  tot+=abs(id[*kkk]-id[*kk]);
  tot-=abs(id[*k]-id[*kk]);
  tot-=abs(id[*k]-id[*kkk]);
  s.erase(k);
}
int main()
{
  ios::sync_with_stdio(false);
  cin.tie(0),cout.tie(0);
  int n,m;cin>>n>>m;
  int block=sqrt(n);
  for(int i=1;i<=n;++i)cin>>val[i];
  for(int i=1;i<=n;++i)id[val[i]]=i;
  for(int i=1;i<=n;++i)pos[i]=(i-1)/block+1;
  int t=pos[n];
  for(int i=1;i<=m;++i)
    {
      int x,y;cin>>x>>y;
      a[pos[x]].push_back({x,y});
      note[i]={x,y};
    }
  for(int i=1;i<=t;++i)sort(a[i].begin(),a[i].end());
  int l=0,r=0;
  for(int i=1;i<=t;++i)
    for(auto j:a[i])
      {
        while(r<j.r)add(++r);
        while(r>j.r)del(r--);
        while(l<j.l)del(l++);
        while(l>j.l)add(--l);
        Map[{j.l,j.r}]=tot;
      }
  for(int i=1;i<=m;++i)
    cout<<Map[note[i]]<<'\n';
  return 0;
}