Даны действительное число а, натуральное число n. Вычислить значение выражения - QBasic

Формулировка задачи:

Добрый вечер. Нужна помощь в решении задачи 78(в) из задачника по программированию Абрамова. "Даны действительное число а, натуральное число n. Вычислить: 1/a + 1/(a*(a+1)) + 1/(a*(a+1)*(a+2)) +...+ 1/(a*(a+1)*...*(a+n))" На первый взгляд мне показалась задача очень простой:

REM Example
INPUT a
INPUT n
s = 0
k = 1 / a
FOR i = 1 TO n
s = s + k / (a + n)
NEXT i
PRINT s

Считает неправильно(ошибка в 7 строке), т.к. уже 3й элемент вводится неправильно. Прощу помощи в исправлении моего алгоритма или написании нового.

Решение задачи: «Даны действительное число а, натуральное число n. Вычислить значение выражения»

Листинг программы

INPUT a
INPUT n
s = 0
k = 1
FOR i = 0 TO n
    k = k / (a + i)
    s = s + k
NEXT
PRINT s

Объяснение кода листинга программы

Входные данные: — Действительное число а — Натуральное число n
Создание переменных: — s = 0 (счетчик суммы) — k = 1 (переменная для хранения результата деления)
Используя цикл FOR, выполняем следующие действия: — Делим k на (a + i) (где i - это номер итерации от 0 до n) — Добавляем полученное значение к переменной s
Завершаем цикл NEXT
Выводим значение переменной s с помощью команды PRINT