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

Ниже записана программка. Получив на вход число x, она печатает два числа. Укажите наивеличайшее из таких чисел x, при вводе которых алгоритм печатает сначала 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) and (x mod 2 = 1) then begin
M:= (x mod 10) * 2;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.