21.TO CHECK WHETHER THE GIVEN NUMBER  IS COMPLETELY DIVISIBLE BY 13 OR NOT.

DECLARE SUB CHECK(N)

CLS

INPUT ENTER ANY NUMBER “;N

CALL CHECK (N)

END

SUB CHECK$(N)

IF N MOD 13 =0 THEN

PRINT  “THE GIVEN NUMBER IS DIVISIBLE BY 13”

ELSE

PRINT “THE GIVEN NUMBER IS NOT  DIVISIBLE BY 13”

END IF

END SUB