QBASIC

WAP TO DISPLAY FACTOR.

CLS 

INPUT "Enter any number"; N

FOR I = 1 TO N

IF N MOD I = 0 THEN PRINT I

NEXT I

END