Ниже записан метод. Укажитенаименьшее из таких чисел x, привводе которых алгоритм

Ниже записан метод. Укажите
меньшее из таких чисел x, при
вводе которых метод печатает поначалу 4, а позже 0.

var x, a,
b, c: integer;

begin


readln(x);


a:= 0; b:= 0;


while x gt; 0 do begin


c:= x mod 2;


if c = 0 then a:= a + 1


else b:= b + 1;


x:= x div 6;


end;


writeln(a);


writeln(b);

end.