Составить алгоритм и программу для подсчета количества нулей в десятичной записи целого числа.

Var
a,i,k:integer;
begin
readln(a);
while a<>0 do begin
if a mod 2=0 then
k:=k+1;
a:=a div 2;
end;
writeln(k);
end.