Посчитать сумму цифр в двоичном представлении числа паскаль.Срочно!!!
пример
дано 10
вывести должно 2

спасибо

Пожалуйста.

var a,k:integer;beginreadln(a);k:=0;while a>0 do begin if a mod 2 = 1 then k:=k+1; a:=a div 2; end;writeln('k = ',k);end.Пример:10k = 2