укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 9.
var x, a,b: integer;
begin
readln(x);
a:=0; b:=0;
while x>0 do
begin
a:=a+1;
b:= b+(x mod 10);
x:=x div 10;
end;
writeln(a); write(b) ;
end.

Так как переменная "a" выведет два, то в данном случае можно сказать, что число двузначное.Переменная "b" должна вывести 9. В программе берется остаток числа от деления на 10 и прибавляется переменная "b". Сумму "9" можно представить, как 9+0, 8+1, 7+2, 6+3, 5+4. Наибольшее число, которое можно составить из предложенных сумм - 90.Ответ: 90.