Три числа. дан массив из целых n чисел а1, а2, . нужно проверить, есть ли в этом массиве три числа сумма которых равна нулю.

For i=1 to n do
 for j=1 to n do
   for k=1 to n do
     begin
      if ((i<>j) and (j<>k)) then sum=a[i]+a[j]+a[k];
      if(sum=0) then куданибудь выводиш числа a[i], a[j] a[k]
    end;