Помогите Срочно!!! Чему будет равен итог исполненья программки, если ввести значения

Помогите Безотлагательно!!!
Чему будет равен итог исполненья программы, если ввести значения для a=2468?
program c22;
var a,b:integer;
k:integer;
begin
K:=0;
readln(a);
while (alt;gt;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