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

INPUT "vvedite kolichestvo elementov ", n
r = -1
FOR i = 1 TO n
    r = -r
    y = y + r * ((i - 1) * 5 + 1)
NEXT
PRINT y

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