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

Wap 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 NO. IS COMPLETELY DIVISIBLE BY 13"

ELSE

PRINT"THE NO. IS NOT COMPLETELY DIVISIBLE BY 13'

END IF 

END SUB