Qbasic. , ! дано вещественное число a и целое число n> 0. вывести значение ряда 1 – a + a^2 – a^3 + + (–1)^na^n.

DIM A#, N%, S#
CLS
INPUT "A = ", A
INPUT "N = ", N
FOR i = 0 TO N
   S = S + (-1) ^ i * (A ^ i)
NEXT i
PRINT "S = ", S
END