Составить программу вычисления числового ряда для известного числа членов ряда N. y=(2-1/81)(4+1/27)(8-1/9)(16+1/3) — QBasic(Бейсик)

INPUT "vvedite N ", n
r = -1
y = 1
FOR i = 1 TO n
y = y * (2 ^ i + r * 1 / (3 ^ (5 - i)))
r = -r
NEXT
PRINT y

Тестирование выполнено в программе QB64 ( Скачать )