Program to find whether the given no. is divisible by 13 or not using 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"DIVISIBLE BY 13"

ELSE

PRINT"NOT DIVISIBLE BY 13"

END IF 

END SUB