Найти сумму ряда с заданной точностью - QBasic (27266)

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

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

Решение задачи: «Найти сумму ряда с заданной точностью»

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

REM OTBET: 0.7834
 
CLS
CONST eps = .0001
a = 1
 
DO
   n = n + 1
   a = (-1) ^ (n - 1) / n ^ n
   s = s + a
LOOP UNTIL ABS(a) < eps
PRINT USING "S = #.####"; s
END

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

Задана константа eps равная 0.0001;
Инициализирована переменная a равная 1;
Запущен цикл DO;
В каждой итерации цикла значение переменной a обновляется;
Значение переменной s увеличивается на значение переменной a;
Цикл продолжается пока абсолютное значение переменной a меньше или равно eps;
По окончанию цикла выводится значение переменной s с точностью до 5 знаков после запятой.