Числовые ряды

[Lepricon69]

Всем привет
Кто нибудь может мне подсказать как считается сумма ряда, до н-ного элемента
ряд: 1+1/2+1/3+...+1/n
заранее спасибо

[Pein95]

цыкл for тебе в помощь

[Hacker19_90]

sum := 0;
for i := 1 to n do
begin
      sum := sum + 1/i;
end;