[Kapitoshka438]

Код:

procedure Sum(I, N: Integer): Double;
var
  P: Double;
  J: Integer;
begin
  Result := 0;
  P := 1;
  for J := 1 to I - 1 do
    P := P / (1 + r);
  for J := I to N do
  begin
    P := P / (1 + r);
    Result := Result + Z[i] * P;
  end;
end;

Может так. Записали бы вы формулу как в математике положено, а то она не совсем понятна.