Prime or composite using sub

Prime or composite using sub procedure.

DECLARE SUB CHECK()
CLS
INPUT"ENTER ANY NO";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"PRIME NO"
ELSE
PRINT"COMPOSITE NO"
END IF
END SUB