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

DEFLNG A-Z
CLS
INPUT "Vvedite N:", N
Plus = 20: Znak = -1
 FOR i = 1 TO N
  S = S + Plus * Znak
  Plus = Plus - 5: Znak = -Znak
 NEXT
PRINT "Summa ryada:"; S