to check whether the given no is completely divisible by 13 or not

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

SUB CHECK(N)
IF N MOD 13=0 THEN
PRINT"THE GIVEN NO IS DIVISIBLE BY 13"
ELSE
PRINT"THE GIVEN NO IS NOT DIVIDIBLE BY 13"
END IF
END SUB