CLS

INPUT "ENTER ANY NUMBER"; N

PRINT "EVEN DIGITS ARE ";

WHILE N <> 0

R = N MOD 10

IF R MOD 2 = 0 THEN PRINT R;

N = N \ 10

WEND

END

USING SUB PROCEDURE

DECLARE SUB EVEN (N)

CLS

INPUT "ENTER ANY NUMBER"; N

CALL EVEN (N)

END

SUB EVEN (N)

PRINT "EVEN DIGITS ARE ";

WHILE N <> 0

R = N MOD 10

IF R MOD 2 = 0 THEN PRINT R;

N = N \ 10

WEND

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION EVEN (N)

CLS

INPUT "ENTER ANY NUMBER"; N

PRINT "EVEN DIGITS ARE ";

D = EVEN(N)

END

FUNCTION EVEN (N)

WHILE N <> 0

R = N MOD 10

IF R MOD 2 = 0 THEN PRINT R;

N = N \ 10

WEND

END FUNCTION

## No Comments