prime or composite in sub

DECLARE SUB CHECK(N)

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 C= C+1

NEXT I

IF C=2 THEN

PRINT "PRIME NUMBER"

END IF

END