Помогите пожалуйста, нужно решить программу для qbasic, только пример (в)

CLS
INPUT "N = ", N
INPUT "A = ", A
S = 0
FOR i = 0 TO N
    P = A
    FOR j = 1 TO i
    P = P * (A + j)
    NEXT j
S = S + 1 / P
NEXT i
PRINT ; "S = "; S
END