Вопрос по информатике:

Ниже записан алгоритм.Получив на вход число X, этот алгоритм печатает два числа: a и b. Укажите наименьшее из таких чисел X при вводе которого алгоритм печатает сначала 15, а потом 7.

Паскаль

var x, a, b, k : integer;
begin
readln(x) ;
a:=0;
b:=10;
while x>0 do
begin
k:=x mod 10;
a:=a+k;
If k<b:=k;
x:=x div 10
end;
writeln(a);
writeln(b);
end.