Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда — QBasic(Бейсик)

INPUT "vvedite kol-vo elementov ", n
FOR i = 1 TO n
    y = y + (-1) ^ i * (i * 3 - 1)
NEXT
PRINT "y="; y

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