Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы? (Pascal)

[Soms]

Задан массив, который содержит 10 чисел. Можно ли среди них найти две разных пары чисел, сумы которых одинаковы? Если можно, то вывести эти числа и их индексы. Вычисление сумы оформить как процедуру или функцию.

Плз господа-товарищи, подскажите хотя бы алгоритм действий.

[Serge_Bliznykov]

я бы попробовал так, "в лоб", тупой и жёсткий перебор.
для малых n должно работать достаточно быстро.

const n=10;
....
function found(var i,j,k,m:integer): boolean;
var sum:integer;
begin
  found := true;
  for i:=1 to n-1 do
    for j:=i+1 to n do 
       begin
         sum := a[i]+a[j];
         for k:=1 to n-1 do 
           for m:=k+1 to n do
              if (k<>i) and (k<>j) and 
                     (m<>i) and (m<>j) and ((a[k]+a[m])=sum) then Exit;
      end;
   found := false
end;

писал тут, не проверял!
просто идея, как перебирать.

[type_Oleg]

А массива a почему нет в параметрах?

PS И задание непонятно - может быть " пары" - это только рядом стоящие числа ?
Типа a[1]+a[2] сравнивать с a[99]+a[100] ..

[Serge_Bliznykov]

type_Oleg, это же просто набросок!!! Эскиз, так сказать!
там много чего нет!

может быть " пары" - это только рядом стоящие числа ?

почему Вы сделали такое предположение?! Не согласен!
В задании ни слова, ни намёка нет та то, что пары - это соседние (или рядом стоящие) числа. Поэтому я бы на это не полагался.