Вычислить sin(x), используя ряд - QBasic

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

sin(x)=(x/1!)-(x^3/3!)+(x^5/5!)-(x^7/7!)+... (1! - факториал) x - произвольное точность вычислений |-|=<10^(-3) n=1,2,3....

Помогите пожалуйста

Решение задачи: «Вычислить sin(x), используя ряд»

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

CLS 
INPUT "X="; X
A = X
S = A
i = 2
 
DO
   A = -A*X^2/(i*(i+1))
   S = S + A
   i = i + 2
LOOP UNTIL ABS(A) < .001
 
PRINT "SIN("; X ;") ="; S
 
END

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

CLS - очистка экрана
INPUT X=; X - ввод значения переменной X с помощью функции INPUT
A = X - присвоение переменной A значение переменной X
S = A - присвоение переменной S значение переменной A
i = 2 - присвоение переменной i значение 2
DO - начало цикла
A = -AX^2/(i(i+1)) - вычисление значения переменной A в текущей итерации цикла
S = S + A - накопление значения переменной S
i = i + 2 - увеличение значения переменной i на 2
LOOP UNTIL ABS(A) < .001 - продолжение цикла до тех пор, пока абсолютное значение переменной A не станет меньше заданной величины
PRINT SIN(; X ;) =; S - вывод значения переменной S с помощью функции PRINT
END - конец программы