10) Ниже записана программа. Получив на вход число , эта программка печатает

10) Ниже записана программка. Получив на вход число , эта программа печатает два числа, и . Укажите величайшее из таких чисел , при вводе которых метод печатает поначалу 3, а позже 10.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x gt; 0 do begin
L:=L+1;
if M lt; x then begin
M:= (x mod 10) * 2;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
И растолкуйте пожалуйста