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

Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M. Укажите наибольшее из таких чисел x, при вводе которых метод печатает поначалу 3, а потом 7.

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x gt; 0 do begin

L:= L + 1;

if x mod 2 = 0 then

M:= M + (x mod 10) div 2;

x:= x div 10;

end;

writeln(L); write(M);

end.