[icWasya]

Как-то так

Код:

function G:real;
var 
  i,k:integer;
  p,s:real;
begin
  p:=1;
  for i:=1 to n do
  begin
    s:=0;
    for k:=1 to i do
    begin
     s:=s+x[k];
    end;
    p:=p*x[i]/s;
  end;
  Result:=p;
end;