Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 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.