Детализация вопроса:

Помогите, пожалуйста, решить задачу! Получаю ответы, но они неверные!

Укажите наибольшее натуральное число xx, при вводе которого будут напечатаны числа 8 и 5.

var x, a, b : integer;

begin read(x);

a := 0; b := 0;

while x > 1 do begin a := a + 1;

if x mod 2 <> x div 2 mod 2 then b := b + 1;

x := x div 2

end;

writeln(a, ' ', b)

end.