abc200c

#include<bits/stdc++.h>
using namespace std;
const int N=1000010;
int a[N],x,ans;
int main()
{
    cin>>x;
    for(int i=1;i<=x;i++) cin>>a[i];
    for(int i=1;i<=x;i++)
        for(int j=i;j<=x;j++)
        {
            if((abs(a[i]-a[j])%200==0)&&(i!=j)) ans++;
        }
    cout<<ans;
    return 0;
}