WAP to input any number and check where even it is divisal by

CLS
INPUT "Enter any number "N
IF N MOD 5 =O THEN
PRINT "The number in divisible by 5"
ELSE
PRINT "The number is not divisible by 5"
ENDIF
END