Помогите паскалевскую прогу написать

Question

Напишите программу, которая считывает с клавиатуры единственное число X, находит количество единиц K в его записи в двоичной системе счисления и выводит число K на экран.

Руслан · Accepted Answer

while ( n > 0 ) do 
begin 
if (n mod 2 = 1) then inc(c); 
n := n div 2; 
end;

Олег · Answer

В принципе условие даже и не нужно: 
 
while N > 0 do 
 begin 
 Inc(C, N and 1); 
 N := N shr 1; 
 end;