Получив на вход натуральное число x, этот алгоритм печатает два числа: a и b. Укажите наименьшее натуральное число, при вводе которого алгоритм печатает сначала 4, а потом –5.

var x, a, b: longint;

begin

readln(x);

a := 0; b := 1;

while x > 0 do begin

if x mod 2 > 0 then

a := a + x mod 9

else

b := b * (x mod 9);

x := x div 9;

end;

writeln(a);

write(b);

end.

C решением любым , пожалуйста