#include <cstdio>
#include <vector>

using namespace std;

int n, r[7001], s, w[14001], v[9001];

void read();
void solve();
void write();

int main()
{
    read();
    solve();
    write();
    return 0;
}

void read()
{
    freopen ( "medie.in", "r", stdin );
    scanf ( "%d", &n );
    for ( int i = 1; i <= n; ++i )
        scanf ( "%d", &v[i] ),
        ++w[v[i]];
    fclose(stdin);
}

void solve()
{
    for ( int i = 1; i <= n; ++i )
        for ( int j = i + 1; j <= n; ++j )
            if ( i != j )
                ++r[v[i]+v[j]];
    for ( int i = 1; i <= 7000; ++i )
        if (r[2*i] && w[i])
            s += r[2*i]*w[i]-w[i]*(w[i]-1);
}

void write()
{
    freopen ( "medie.out", "w", stdout );
    printf ( "%d\n", s );
    fclose(stdout);
}