Составить программу вычисления числового ряда для известного числа ряда N

Составить программу вычисления числового ряда для известного числа ряда N. Y=((3^3)-1) ((3^-2)+2) ((3^1)-4) ((3^-0)-8)

DEFDBL M-Y
  CLS
INPUT "Vvedite kol-vo chlenov ryada: ", n
m = 1: y = 1
FOR i = 0 TO n - 1
   y = y * (3 ^ ((3 - i) * m) + (-m * 2 ^ i))
   m = -m
NEXT
PRINT "Y = "; INT(y)