Qbasic to display 50, 42, 35, 29, 24 10 th term using Sub

DECLARER SUB SERIES( )

CLS

CALL SERIES

END

SUB SERIES( )

A = 50

B = 8

FOR I = 1 TO 10

PRINT A

A = A - B

B = B - 1

NEXT I

END