CLS
INPUT "Enter any number ", N
R = N MOD 2
SELECT CASE R
    CASE IS = 0
        PRINT "The number is Even number"
    CASE ELSE
        PRINT "The number is odd number"
END SELECT
END
PROGRAM RESULT