Использование операторов цикла

[кася]

Даны натуральное число N и вещественное f. Вычислить

Произведение от i=1 до N, умноженное на дробь 1, деленная на сумму (f+k) от k=0 до i

[Карась]

А где конкретные вопросы и Ваши наработки?!

[eoln]

Сообщение от кася

Даны натуральное число N и вещественное f. Вычислить

Произведение от i=1 до N, умноженное на дробь 1, деленная на сумму (f+k) от k=0 до i

На сколько мне известно, такие задачи преподы обычно требуют в вариантах FOR, WHILE и REPEAT.
Вот фор

proizv:=1;
for i:=1 to n do begin
  sum:=0;
  for k:=0 to i do sum:=sum+k;
  sum:=sum+f;
  proizved:=proizved*i/sum
end;

[кася]

ОГРОМНОЕ СПАСИБО eoln!!!