Qbasic program to display whether the given number is prime or composite

Write a program to display whether the given number is 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 number is prime"
ELSE
PRINT "The given number is composite"
END IF
END