Вычислить значение выражения, используя циклы - QBasic

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

ПОвторение действий языков програмирования и освоения приемов алгоритмизации циклических струкрур . пример таков-

                    Листинг программы
                
FOR variable=x TO y [STEP] 
операторы 
NEXT[variable]...]

где variable-численная переменная,наз-ая параметром цикла. операторы между фор и нехт образуют тело цикла.) ВОТ САМА задача

Решение задачи: «Вычислить значение выражения, используя циклы»

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

REM OTBET: 0.9999998
 
CLS
 
FOR i = 0 TO 8
   p = 1
   FOR j = 1 TO i
      p = p * j
   NEXT j
   s = s + 1 / (p * (i + 2))
NEXT i
PRINT "S ="; s
END

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

p — переменная цикла
j — переменная цикла
s — результат выражения
i — переменная цикла
OTBET — константа
0.9999998 - константа
CLS — команда очистки экрана
FOR — начало цикла
NEXT — завершение цикла
i = 0 TO 8 - задание диапазона для переменной цикла i
p = 1 - присваивание переменной цикла значение 1
FOR j = 1 TO i - цикл в цикле
p = p * j - присваивание переменной цикла значение произведения на j
NEXT j - завершение цикла в цикле
s = s + 1 / (p * (i + 2)) - присваивание переменной результата выражения
NEXT i - завершение цикла
PRINT S =; s - вывод результата на экран
END - завершение программы
Результат выполнения программы выводится на экран
Значение переменной s равно 0.16666666666666666