Помогите пожалуйста.
Ниже на пяти языках записан алгоритм. Получив на вход число x, этот
алгоритм печатает два числа a и b. Укажите наименьшее из таких чисел x,
при вводе которых алгоритм печатает сначала 4, а потом 17.
Паскаль;
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 mod 10;
x := x div 10;
d:=d + 1
end;
writeln(a); write(b);
end.