#include <fstream>
using namespace std;
ifstream f("medie.in");
ofstream g("medie.out");

int n, a[9005], fcv[7005], sol;

int main()
{
    f>>n;
    for (int i=1; i<=n; ++i) f>>a[i];

    for (int i=1; i<n; ++i)
        for (int j=i+1; j<=n; ++j)
        {
            int aux=a[i]+a[j];
            if (aux%2==0) ++fcv[aux/2];
            if (a[i]==a[j]) sol-=2;
        }
    for (int i=1; i<=n; ++i) sol+=fcv[a[i]];
    g<<sol<<"\n";
    return 0;
}