Сдлать логическую цепь 3пример

                     a |                   s |          k

       5,000000 |   0,000000 |   0,000000

       9,000000 |   5,000000 |   1,000000

      13,000000 |  14,000000 |   2,000000

      17,000000 |  27,000000 |   3,000000

      21,000000 |  44,000000 |   4,000000

      25,000000 |  65,000000 |   5,000000

      29,000000 |  90,000000 |   6,000000

      33,000000 | 119,000000 |   7,000000

      37,000000 | 152,000000 |   8,000000

      41,000000 | 189,000000 |   9,000000

      45,000000 | 230,000000 |  10,000000

      49,000000 | 275,000000 |  11,000000

      53,000000 | 324,000000 |  12,000000

K = 12.0

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  if n>10 then begin Writeln('n>10'); Exit end;
  var a:=ReadArrInteger(n);
  Writeln(10*'-');
  var b:=a.Where(k->k.IsEven or (k mod 13=0)).ToArray;
  var m:=0;
  for var i:=0 to b.Count-2 do
    for var j:=i+1 to b.Count-1 do
      if (b[i]*b[j]) mod 26=0 then begin
        Println(b[i],b[j]); m+=1
        end;
  if m=0 then Writeln('NO')
end.

Пример
n= 6
29 38 16 39 41 7

38 39
16 39