Укажите наивеличайшее естественное число, при вводе которого эта программа напечатает поначалу

Укажите наибольшее естественное число, при вводе которого эта программка напечатает поначалу 3, потом 6. С объяснением
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x gt; 0 do begin
L:=L + 1;
if (x mod 8) lt;gt; 0 then
M:= M + x mod 8;
x:= x div 8;
end;
writeln(L); write(M);
end.