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