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