10 INPUT E
20 S=0:N=1: A=-1
30 GOTO 50
40 S=S+A:N=N+1:A=(-1)^N/N/N
50 IF ABS(A)>=E THEN GOTO 40
60 PRINT "Результат:";S