Нужно рассчитать функцию. Получается последний элемент массива.
Код:
function G:real;
var i,k:integer;
begin
s:=0;
p:=1;
for i:=1 to n do
for k:=1 to i do
begin
s:=s+x[k];
p:=p*x[i]/s;
summa:=p;
p:=p*x[i]/summa;
G:=p;
end;
end;
Админ: Как ранее и предупрждалось - при рецедиве в бан, на пару дней.