To check whether the given no is completely divisible by 13 or not using sub

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 DIVISIBAL BY 13"
ELSE
PRINT"THE GIVEN NO IS NOT DIVIDIBAL BY 13"
END IF
END SUB