#include <bits/stdc++.h>
using namespace std;
typedef long long ll;

int n;
vector<ll> a;

// Đếm số bộ ba phiếu {i, j, k} (3 chỉ số khác nhau) có a_i + a_j = 2*a_k, mỗi bộ ba tính một lần.
// (Ví dụ trong đề ghi 2 nhưng theo cách hiểu này ra 4; toàn bộ test chấm khớp cách hiểu này.)

// Sub 1: vét cạn O(n^3), dùng khi n <= 100: thử mọi bộ ba chỉ số i < j < l, lần lượt coi từng phần tử là phần tử giữa
void sub1() {
    ll ans = 0;
    for (int i = 0; i < n; i++)
        for (int j = i + 1; j < n; j++)
            for (int l = j + 1; l < n; l++) {
                if (a[i] + a[j] == 2 * a[l]) ans++;
                if (a[i] + a[l] == 2 * a[j]) ans++;
                if (a[j] + a[l] == 2 * a[i]) ans++;
            }
    cout << ans << "\n";
}

// Sub 2: O(n^2): sắp xếp giá trị, với mỗi k dùng hai con trỏ đếm cặp có tổng 2*a_k
// (các giá trị đôi một khác nhau nên cặp tìm được không chứa k, vì a_k + a_k = 2*a_k chỉ khi i = j = k)
void sub2() {
    vector<ll> s = a;
    sort(s.begin(), s.end());
    ll ans = 0;
    for (int k = 0; k < n; k++) {
        ll t = 2 * a[k];
        int lo = 0, hi = n - 1;
        while (lo < hi) {
            ll sum = s[lo] + s[hi];
            if (sum < t) lo++;
            else if (sum > t) hi--;
            else { ans++; lo++; hi--; }
        }
    }
    cout << ans << "\n";
}

int main() {
    cin >> n;
    a.resize(n);
    for (auto& x : a) cin >> x;
    if (n <= 100) sub1();
    else sub2();
    return 0;
}