28.PRIME OR COMPOSITE.

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 “PRIME NUMBER “

ELSE

PRINT “COMPOSITE NUMBER “

END IF

END