Factors

CLS
INPUT " Enter any number "; N
FOR I = 1 TO N
IF N MOD I = 0 THEN    PRINT I
NEXT I
END