Program to Count Factor of Number in QBASIC
CLS
Fcount = 0
PRINT "To Count Factor of a Number"
INPUT "Enter a number which number factor you want"; n
FOR f = 1 TO n
    IF (n MOD f = 0) THEN
        Fcount = Fcount + 1
    END IF
NEXT f
PRINT "Total factor of given number is ="; Fcount
END