Q BASIC PROGRAM TO CHECK WHETHER THE GIVEN NUMBER IS DIVISIBLE BY 13 OR NOT. SUB

DECLARE SUB CHECK(N)
CLS
INPUT "ENTER ANY NUMBER";N
CALL CHECK(N)
END

SUB CHECK(N)
IF N MOD 13 = 0 THEN
PRINT "NUMBER IS DIVISIBLE BY 13"
ELSE
PRINT "NUMBER IS NOT DIVISIBLE BY 13"
END IF
END SUB