В чем ошибка?Qbasic!

[LoooOl]

Определить сумму ряда с заданной точностью t ( ) и число слагаемых, необходимых для достижения этой точности. Точность считается достигнутой, если очередное слагаемое по модулю меньше t (это и последующее слагаемое не учитываются). Использовать для организации цикла операторы DO … LOOP или WHILE … WEND (значения буквенных переменных задавать с клавиатуры):

CLS
INPUT e
f=1
FOR i=1 TO e
f=f*i
NEXT i
s=0: I=1
DO
A=(-1)^I/(f(2*I+1))
s= S+A : I=I+1
LOOP WHILE A>= e
PRINT "summa ryada"; s+1, "n"; I-1