[NIch]

Может я неправильно понял задание, но...
потом

Код:

var
 Mass[0..10] : array of real;//Массив данных
 StringList : TStringList;//Список результатов
begin
for i := 0 to Length(Mass)-1 do
 for j := 0 to Length(Mass)-1 do 
 begin
  if Y = Mass[i]+Mass[j] then
   StringList.Add(FloatToStr(Mass[i])+'+'+FloatToStr(Mass[j])+'='+FloatToStr(Y));
 end;
end;