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