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

Паскаль
program B20;
var x, a, b, d: integer;
begin
readln(x);
a := 0; b := 0; d := 0;
while x > 0 do
begin
if d mod 2 = 0 then
a := a+ x mod 10
else
b := b+ x div 10
x := x div 10
d := d + 1
end;
writeln(a); write(b);
end.