Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 4, а потом 0.

var x, a, b : longint;

begin

readln(x);

a : = 0; b : = 1;

while x > 0 do begin

a : = a + 1;

b : = b * (x mod 10);

x : = x div 10;

end;

writeln(a); write(b);

end.