Составить программу в паскаль: дано число меньше 16 определить - сколько единичных битов содержит двоичная запись этого числа.

Var b,a,c,kol:integer;
 begin 
writeln('введите число в десятичной системе счисления');
 readln(a); 
 kol:=0; 
 while(a>=2) do  begin 
      c:=a div 2; 
      b:=2*c; 
      b:=a-b; 
      writeln(b); 
      a:=c; 
     if a<2 then 
     writeln(a); 
     if a > 0 then 
     kol:=kol+1; 
end; 
writeln('количество 'kol);
end.