43. Qbasic program to declare a sub procedure module to decide whether an input no is multiple of 5 or not

43.      Write a program to declare a sub procedure module to decide whether an input no is multiple of  5 or not.

DECLARE SUB CHECK (N)

CLS

INPUT “ENTER ANY NUMBER”; N

CALL CHECK (N)

END

SUB CHECK (N)

IF N MOD 5 = 0 THEN

PRINT “The given number is multiple of 5”

ELSE

PRINT “The given number is not multiple of 5”

END IF

END SUB