QBASIC PROGRAM TO CHECK VOTING ELIGIBLITY

 CLS
 INPUT “ENTER YOUR AGE”; A
 IF A >= 18 THEN
 PRINT “YOU ARE ELIGIBLE TO VOTE”
 ELSE
 PRINT “ YOU ARE NOT ELIGIBLE TO VOTE”
 END IF
 END

DECLARE SUB ELIGIBLE(A)
 CLS
 INPUT “ENTER YOUR AGE”; A
 CALL ELIGIBLE(A)
 END
 
 SUB ELIGIBLE(A)
 IF A >= 18 THEN
 PRINT “YOU ARE ELIGIBLE TO VOTE”
 ELSE
 PRINT “ YOU ARE NOT ELIGIBLE TO VOTE”
 END IF
 END SUB