Необходимо определить количество пар чисел, разность которых кратна 13, а произведение чётно

var
  n,i,x,k:integer;
  a:array [0..12] of integer;
  b:array [0..12] of integer;
  begin
    readln (n);
    for i:=1 to n do
     begin
      readln (x);
      if (x mod 2=0) then a[x mod 13]:=a[x mod 13]+1;
      if (x mod 2 <>0) then b[x mod 13]:=b[x mod 13]+1;
     end;
     for i:=0 to 12 do
       begin
       
       k:=k+(a[i]*b[i]);
       
        k:=k+((a[i]-1)*a[i] mod 2);
       end;
     write(k);
  end.

begin
 var m := Arr(7, 55, 28, 15, 2, 42, 27, 16); 
 var col := 0;
 for var g := 1 to 13 do 
 begin
   var a := g.step(13).Take(770).toHashSet; // Множество чисел до 10000 кратных 13
   var (mEven, mOdd) := (0, 0);
   for var n := 0 to m.high do 
     if m[n] in a then 
       if m[n].IsOdd then inc(mOdd) else inc(mEven);
   if mEven > 0 then col := col + mOdd * mEven + mEven * (mEven - 1) div 2;
 end;
 if col = 0 then Print('NO') else Print(col);
end.

begin
  var m := Arr(7, 55, 28, 15, 2, 42, 27, 16, 40, 53, 66); 
  var mOdd: array [0..12] of integer;
  var mEven: array [0..12] of integer;
  var col := 0;
  for var n := 0 to m.High do 
    if m[n].IsOdd then 
      inc(mOdd[m[n] mod 13]) 
    else inc(mEven[m[n] mod 13]) ;
  for var n := 0 to 12 do 
    col += mOdd[n] * mEven[n] + mEven[n] * (mEven[n] - 1) div 2;
  if col = 0 then Print('NO') else Print(col);
end.