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