Prime or composite

CLS
INPUT " Enter any number";N
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN     C = C + 1
NEXT I
IF C = 2 THEN
PRINT " The given no is prime"
ELSE
PRINT " The given no is composite"
END IF
END