DISPLAY 50, 42, 35, 29, 24 1O.......TERM(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