local n, m = io.read("*n", "*n")
local t = {}
local mod = {}
local pr = {}
for i = 1, m do mod[i] = 0  pr[i] = 0 end
for i = 1, n do
  local a = io.read("*n")
  local v = a % m
  if v == 0 then v = m end
  mod[v] = mod[v] + 1
  t[i] = a
end
table.sort(t)
local pos = 1
while pos <= n - 1 do
  if t[pos] == t[pos + 1] then
    local v = t[pos] % m
    if v == 0 then v = m end
    pr[v] = pr[v] + 1
    pos = pos + 2
  else
    pos = pos + 1
  end
end
local mmi, mfl = math.min, math.floor
local ret = 0
local hm = mfl((m - 1) / 2)
for i = 1, hm do
  local v = mmi(mod[i], mod[m - i])
  ret = ret + v
  mod[i] = mod[i] - v
  mod[m - i] = mod[m - i] - v
end
do
  local v = mfl(mod[m] / 2)
  ret = ret + v
  mod[m] = mod[m] - v * 2
end
if m % 2 == 0 then
  local z = mfl(m / 2)
  local v = mfl(mod[z] / 2)
  ret = ret + v
  mod[z] = mod[z] - v * 2
end
for i = 1, m do
  local v = mmi(pr[i], mfl(mod[i] / 2))
  ret = ret + v
end
print(ret)
