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

program zz1;var a, b, n:integer; // задаем переменные целого типаbeginwrite(\' введите натуральное число < 16 \'); // вводим с клавиатуры числоread(n); while n > 1 do // организуем цикл, пока введенное число больше чем единицаbegina:=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.