Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен заданному - QBasic (27249)

Народ помогите пожалуйста!

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

CLS
CONST eps = .005
a = 1
b = 1
 
DO
   i = i + 1
   b = 2 * b * i
   a = b / i ^ i
   s = s + a
LOOP UNTIL ABS(a) < eps
 
PRINT "S ="; s
END

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

CLS — очистка экрана
CONST eps = .005 — определение константы ε
a = 1 — инициализация переменной a значением 1
b = 1 — инициализация переменной b значением 1
DO — начало цикла
i = i + 1 — увеличение счетчика i на единицу
b = 2 * b * i — обновление значения переменной b
a = b / i ^ i — обновление значения переменной a
s = s + a — обновление значения переменной s
LOOP UNTIL ABS(a) < eps — продолжение цикла до тех пор, пока абсолютное значение переменной a не станет меньше ε
PRINTS =; s — вывод суммы s на экран
END — конец программы