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

var x, a, b: integer;
begin readln(x); a := 0; b := 1;
while x > 0 do begin a := a+1;
b := b*(x mod 100);
x := x div 100;
end;
writeln(a);
write(b);
end.