Вычислить и вывести члены последовательности - QBasic

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

прошу помощи, ибо сам не могу додуматься. Вычислить и вывести те члены последовательности x; x³/3!; x⁵/5!; x⁷/7!;.... x²ⁿ⁺¹ /(2n+1)! значения которых больше e=0,001, при x=0,4

Решение задачи: «Вычислить и вывести члены последовательности»

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

CLS
CONST e = .001
x = .4
 
x2 = x * x
A = x
N = 2
 
PRINT A
 
DO
   A = A * x2 / (N * (N + 1))
   N = N + 2
   IF A > e THEN PRINT A
LOOP UNTIL A < e
END

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

CLS - очистка экрана
CONST e = .001 - определение константы e со значением 0.001
x = .4 - определение переменной x со значением 0.4
x2 = x * x - вычисление квадрата x и присвоение результата переменной x2
A = x - присвоение переменной A значения x
N = 2 - определение переменной N со значением 2
PRINT A - вывод значения переменной A на экран
DO - начало цикла
A = A * x2 / (N * (N + 1)) - вычисление нового значения переменной A в цикле
N = N + 2 - увеличение значения переменной N на 2 в цикле
IF A > e THEN PRINT A - проверка условия и вывод значения переменной A на экран, если оно больше e
LOOP UNTIL A < e - продолжение цикла до тех пор, пока значение переменной A меньше e
END - окончание программы