QBASIC program to display sum of even digits .

CLS
INPUT "Enter any number ";N
S = 0 
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R
N = N \ 10 
WEND 
PRINT " Sum of  even digits = " ; S
END