Составить программу вычисления числового ряда для известного числа членов ряда N. Y=(1/24+1)(2/23-2)(3/22+4)(3/21-8) — QBasic(Бейсик)

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

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