QBASIC PROGRAM TO CALCULATE THE TOTAL INCOME TAX

QBASIC PROGRAM TO CALCULATE THE TOTAL INCOME TAX TO BE PAID

CLS
 INPUT “Enter monthly income”; I
 A=I*12
 IF A>500000 THEN
 TAX=15/100*A
 PRINT"Total amount of tax to be paid is"; TAX
 ELSE
 TAX=10/100*A
 END IF
 END

USING SUB

DECLARE SUB TAX(I)
 CLS
 INPUT “Enter monthly income”; I
 A=I*12
 IF A>500000 THEN
 TAX=15/100*A
 PRINT"Total amount of tax to be paid is"; TAX
 ELSE
 TAX=10/100*A
 END IF
 END SUB