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

Ниже записана программка. Получив на вход число x, эта программа печатает два числа. Укажите меньшее из таких чисел x, при вводе которых метод печатает поначалу 3, а потом 10. var x, L, M: integer; begin readln(x); L:=0; M:=0; while x amp;gt; 0 do begin L:=L+1; if (M amp;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.