Определить, на сколько бит различаются два числа

var
n,i,j,q,m,kol,otv,k:longint;
a:array[1..10000]of integer;
begin
readln(n,k);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do begin
for j:=i+1 to n do begin
    q:=a[i];
    m:=a[j];
    kol:=0;
    while (q>0)or(m>0) do begin
        if (q mod 2)<>(m mod 2) then inc(kol);
        q:=q div 2;
        m:=m div 2;
    end;
    if kol=k then inc(otv);
end;
end;
writeln(otv);
end.

const MaxBit=16;
var
  a: array [0..MaxBit] of Longint;
  b: array [0..255] of Integer;
  n, i, t: Longint;
  k, j, jj: Integer;
  r: QWord;
begin
  Randomize;
  for j:=0 to 255 do begin
    k:=((j shr 1) and $55)+(j and $55);
    k:=((k shr 2) and $33)+(k and $33);
    k:=((k shr 4) and $0F)+(k and $0F);
    b[j]:=k;
  end;
  ReadLn(n,k);
  for n:=1 to n do begin
    {t:=(Longint(Random(65535))+Random(65535)) mod 100001;}
    Read(t);
    Inc(a[b[ t         and $FF]+
          b[(t shr 8)  and $FF]+
          b[(t shr 16) and $FF]]);
  end;
  if k=0 then
    for j:=0 to MaxBit do
      if a[j]>0 then Inc(r,a[j]*(a[j]-1) div 2)
      else
  else
    for j:=k to MaxBit do Inc(r,a[j-k]*a[j]);
  WriteLn(r);
end.