QBASIC PROGRAM TO CHECK PRIME OR COMPOSITE(SUB)

DECLARE SUB CHECK(N)

CLS
INPUT "ENTER ANY NUMBER";N

CALL CHECK(N)
END

FUNCTION 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 "THE GIVEN NO IS PRIME"
ELSE
PRINT "THE GIVEN NO IS COMPOSITE"
END IF
END SUB