map<ll,ll>b;
ll@n,@m,@a[n],z=0;
rep(i,n)++b[a[i]%=m];
rep(i,n)
	z+=a[i]*2%m?max(b[a[i]],b[m-a[i]]):1,
	b[a[i]]=b[m-a[i]]=0;
wt(z);