WAP to enter multi-digits numbers and print only even numbers from them. (If input is 5481, output is 4,8)

DECLARE SUB SUM(N)

CLS

INPUT "ENTER MULTI-DIGITS NUMBER";N

CALL SUM(N)

END 

SUB SUM(N)

WHILE N<>0

R=N MOD 10

IF R MOD 2=0 THEN PRINT "EVEN DIGIT IS "; R

N=N\10

WEND

END