[Bargest]

Принцип подсчета для известного n:

Код:

m := n;
n := m + 1/n;
n := (m-1)+1/n;
n := (m-2)+1/n;
...

Остается поставить это в цикл FOR и получить ответ.