//NiceDuck
#include "bits/stdc++.h"
typedef long long ll;
using namespace std;
#define FILE "000"
#define foru(i,a,b) for(int i=(int)(a); i<=(int)(b); ++i)
#define ford(i,a,b) for(int i=(int)(a); i>=(int)(b); --i)
#define fastio ios_base::sync_with_stdio(0);cin.tie(0);
#define pb push_back
#define fi first
#define se second
#define pii pair<int,int>
#define pil pair<int,ll>
#define pli pair<ll,int>
#define MOD 1000000007
#define el "\n"
const int MAX=5e3+4,CORD=2e6;
int n,q,a[MAX];
ll f[MAX][MAX];
int fre[4000006];
void pre()
{
ford(l,n,1)
{
foru(r,l+1,n)
{
if(r-l+1>=3)
{
int tmp=-(a[l]+a[r])+CORD;
f[l][r]=f[l][r-1]+f[l+1][r]-f[l+1][r-1]+fre[tmp];
}
fre[a[r]+CORD]++;
}
foru(r,l+1,n) fre[a[r]+CORD]--;
}
}
int main()
{
fastio
if(fopen(FILE ".inp","r"))
{
freopen(FILE ".inp","r",stdin);
freopen(FILE ".out","w",stdout);
}
cin>>n>>q;
foru(i,1,n)
{
cin>>a[i];
}
pre();
while(q--)
{
int l,r; cin>>l>>r;
cout<<f[l][r]<<el;
}
return 0;
}
Ly9OaWNlRHVjawojaW5jbHVkZSAiYml0cy9zdGRjKysuaCIKdHlwZWRlZiBsb25nIGxvbmcgbGw7CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgRklMRSAiMDAwIgojZGVmaW5lIGZvcnUoaSxhLGIpIGZvcihpbnQgaT0oaW50KShhKTsgaTw9KGludCkoYik7ICsraSkKI2RlZmluZSBmb3JkKGksYSxiKSBmb3IoaW50IGk9KGludCkoYSk7IGk+PShpbnQpKGIpOyAtLWkpCiNkZWZpbmUgZmFzdGlvIGlvc19iYXNlOjpzeW5jX3dpdGhfc3RkaW8oMCk7Y2luLnRpZSgwKTsKI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSBmaSBmaXJzdAojZGVmaW5lIHNlIHNlY29uZAojZGVmaW5lIHBpaSBwYWlyPGludCxpbnQ+CiNkZWZpbmUgcGlsIHBhaXI8aW50LGxsPgojZGVmaW5lIHBsaSBwYWlyPGxsLGludD4KI2RlZmluZSBNT0QgMTAwMDAwMDAwNwojZGVmaW5lIGVsICJcbiIKCmNvbnN0IGludCBNQVg9NWUzKzQsQ09SRD0yZTY7CmludCBuLHEsYVtNQVhdOwpsbCBmW01BWF1bTUFYXTsKaW50IGZyZVs0MDAwMDA2XTsKCnZvaWQgcHJlKCkKewogICAgZm9yZChsLG4sMSkKICAgIHsKICAgICAgICBmb3J1KHIsbCsxLG4pCiAgICAgICAgewogICAgICAgICAgICBpZihyLWwrMT49MykgCiAgICAgICAgICAgIHsKICAgICAgICAgICAgICAgIGludCB0bXA9LShhW2xdK2Fbcl0pK0NPUkQ7CiAgICAgICAgICAgICAgICBmW2xdW3JdPWZbbF1bci0xXStmW2wrMV1bcl0tZltsKzFdW3ItMV0rZnJlW3RtcF07CiAgICAgICAgICAgIH0KICAgICAgICAgICAgZnJlW2Fbcl0rQ09SRF0rKzsKICAgICAgICB9CiAgICAgICAgZm9ydShyLGwrMSxuKSBmcmVbYVtyXStDT1JEXS0tOwogICAgfQp9CgppbnQgbWFpbigpCnsKICAgIGZhc3RpbwogICAgaWYoZm9wZW4oRklMRSAiLmlucCIsInIiKSkKICAgIHsKICAgICAgICBmcmVvcGVuKEZJTEUgIi5pbnAiLCJyIixzdGRpbik7CiAgICAgICAgZnJlb3BlbihGSUxFICIub3V0IiwidyIsc3Rkb3V0KTsKICAgIH0KICAgIAogICAgY2luPj5uPj5xOwogICAgZm9ydShpLDEsbikgCiAgICB7CiAgICAgICAgY2luPj5hW2ldOwogICAgfQogICAgcHJlKCk7CiAgICB3aGlsZShxLS0pCiAgICB7CiAgICAgICAgaW50IGwscjsgY2luPj5sPj5yOwogICAgICAgIGNvdXQ8PGZbbF1bcl08PGVsOwogICAgfQogICAgCiAgICByZXR1cm4gMDsKfQ==