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