Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда. y=-20+15-10+5-0+… — QBasic(Бейсик)

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

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