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

program zz1;

var a, b, n:integer; / / задаем переменные целого типа

begin

write (' введите натуральное число < 16 '); / / вводим с клавиатуры число

read (n);

while n > 1 do / / организуем цикл, пока введенное число больше чем единица

begin

a:=n mod 2; / / получаем двоичную цифру

if a = 1 then b:=b + 1; / / проверяем ее, если единица, то считаем

n:=n div 2; / / уменьшаем заданное число

if n = 1 then b:=b + 1;

end;

write (' количество единичных битов в двоичной записи числа = ', b); / / выводим ответ

end.