QBASIC Program to find the product of even digits

 CLS
 INPUT"enter any number";N
 P=1
 WHILE N<>0
  R=N MOD 10
  IF R MOD 2=0 THEN P=P*R
  N=N\10
  WEND
  PRINT" product of even digits=";P
   END