Pascal Выбрать из троек натуральных чисел по паре чисел с максимальной суммой, кратной 4

[Dsvln]

Правильно ли написана программа?

Условие :
Имеется набор данных, состоящий из троек натуральных чисел. Необходимо выбрать из каждой тройки два числа так, чтобы сумма всех выбранных чисел была кратна 4 и при этом была максимально возможной. Если получить требуемую сумму невозможно, в качестве ответа нужно выдать 0. Входные данные: На вход программе в первой строке подаётся количество троек N (1 < N < 100000). Каждая из следующих N строк содержит три натуральных числа, не превышающих 10 000.
Пример входных данных:
6
8 3 4
4 8 12
9 5 6
2 8 3
12 3 5
1 4 12
Пример выходных данных для приведённого примера входных данных: 88

var a : array[1..3] of integer;
i,N,k,a1,a2,a3 : integer;
S : longint;

Begin

readln(N);
for i:=1 to 3 do a[i]:=4;
for i:=1 to n do 
  begin
  readln(a1,a2,a3);

  if a1>a2 then 
    if a3>a2 then S:=S+a1+a3 
                         else S:=S+a1+a2 
else 
      if a1>a3 then S:=S+a1+a2 
                           else S:=S+a3+a2; 
 
  k:=abs(a1-a2) mod 4;
  if (k>0) and (abs(a1-a2)<a[k]) then a[k]:=abs(a1-a2);

  k:=abs(a1-a3) mod 4;
  if (k>0) and (abs(a1-a3)<a[k]) then a[k]:=abs(a1-a3);

  k:=abs(a3-a2) mod 4;
  if (k>0) and (abs(a3-a2)<a[k]) then a[k]:=abs(a3-a2);

  end;

if (S mod 4 > 0) and (a[S mod 4]<>4) then writeln(S-a[S mod 4] )
else writeln(0);

End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[min@y™]

Ну конечно правильно!

https://youtu.be/WsQACcuJoeU

[Serge_Bliznykov]

Сообщение от Dsvln

Правильно ли написана программа?

я не очень понял алгоритм решения, но потестировал и не смог найти варианты исходных троек, для которых программа выдала бы неверный ответ.
Поэтому, я бы сказал, что программа написана правильно.

[Andrey77796]

Интересная реализация данной программы. Но можете ли Вы прокомментировать данный код? Было бы очень интересно полностью "прозреть" вашу программу