дано естественное число.Определить количество единиц в записи данного числа в двоичной

какое нат число?

любое

задачка в Pascal

Большое спасибо

Var
  n, k: longint;

begin
  Write('Введите натуральное число: '); Readln(n);
  k := 0;
  if n gt; 1 then
  begin
    repeat
      if n mod 2 = 1 then k := k + 1;
      n := n div 2
    until n lt; 2
  end;
  Writeln('Количество единиц в двоичном представлении равно ', k + 1)
end.

Тестовое решение:
Введите естественное число: 152
Количество единиц в двоичном представлении одинаково 3