WAP to display factor of the given number

CLS

INPUT " Enter any number ";N

FOR I = 1 TO N

IF N MOD I = 0 THEN PRINT I

NEXT I

END