Помогите Срочно!!!
Чему будет равен результат выполнения программы, если ввести значения для a=2468?
program c22;
var a,b:integer;
k:integer;
begin
K:=0;
readln(a);
while (a<>0) do
begin
b:=a mod 10;
if b mod 2 =0 then
inc(k);
a:=a div 10;
end;
writeln(k);
end.

A) 9 Б)3 В)0 Г)4