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

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