Write a QBASIC Program to generate the series: 999,728,511,342,.......,upto 10th terms

Write a QBASIC Program to generate the series: 999,728,511,342,.......,upto 10th terms

CLS
a = 999
b = 271
c = 54
FOR i = 1 TO 10
    PRINT a
    a = a - b
    b = b - c
    c = c - 6
NEXT i
END