#include <fstream>
using namespace std;
ifstream fin("medie.in");
ofstream fout("medie.out");
int n,x,i,j,k,f1[7002],f2[7002],v[9002];
long long sol;
int main(){
    fin>>n;
    for(i=1;i<=n;i++){
        fin>>v[i];
        f1[v[i]]++;
        for(j=1;j<i;j++)
            if((v[i]+v[j])%2==0)
                f2[(v[i]+v[j])/2]++;
    }
    for(i=1;i<=n;i++)
        sol+=f2[v[i]]-f1[v[i]]+1;
    fout<<sol;
/*/printre toate perechile cu media v[i] eu le numar si pe cele
  (f1[v[i]]-1) care se obt cu v[i] si un alt nr egal cu el*/
    return 0;
}