Program to find whether the given no. is divisible by 13 or not using SUB

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