Q BASIC PROGRAM:PRIME OR COMPOSITE

Q BASIC PROGRAM TO CHECK THE GIVEN NO IS PRIME OR COMPOSITE. SUB

DECLARE SUB CHECK(N)
CLS
INPUT "ENTER ANY NUMBER ";N
CALL CHECK(N)
END

SUB CHECK(N)
C=0
FOR I = 1 TO N
IF N MOD I=0 THEN C=C+1
NEXT I
IF C=2 THEN
PRINT "NO IS PRIME"
ELSE
PRINT "NO IS COMPOSITE"
END IF
END SUB