Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда. y=(-3)6(-9)12(-15) — QBasic(Бейсик)

INPUT "vvedite N ", n
r = -1
p = 1
FOR i = 1 TO n
    p = p * i * 3 * r
    r = -r
NEXT
PRINT "proizvedenie="; p

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