Решить с case дано натуральное число n. найти произведение четных цифр данного числа

Var a, b, c: integer;
readln ( a );
c:=1;
while a> 0 then
begin
b:=a mod 10;
case b of
0,2,4,6,8: c:=c*b;
end;
a:=a div 10;
end;
writeln ( c );
ebd.