90. Qbasic Program to generate 1800, 1600, 1400, ……..10th term.

90. Write a Qbasic Program to generate 1800, 1600, 1400, ……..10^th term.

DECLARE SUB DISP( )

CLS

CALL DISP

END

SUB DISP ( )

A = 1800

FOR I = 1 TO 10

    PRINT A

    A = A - 200

NEXT I

END SUB