Из данного числа вычли сумму его цифр. Из результата опять вычли

var n,x,k: integer;
nbsp;
//Функция нахождения суммы цифр числа n
function sum(n: integer): integer;
var s: integer;
begin
nbsp;nbsp;s:= 0; //в начале сумма одинакова 0
nbsp;nbsp;while (ngt;0) do //Пока число положительное исполняем цикл
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;s:= s+n mod 10; //Обретаем остаток от разделенья числа n на 10, суммируем nbsp;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;n:= n div 10; nbsp;//Обретаем целую часть от дробления числа n nbsp;на 10
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;sum := s;
end;
nbsp;
begin
nbsp;nbsp;readln(n);
nbsp;nbsp;x:= n; nbsp;nbsp;
nbsp;nbsp;k:= 0; nbsp;nbsp;
nbsp;nbsp;while (xgt;0) do //пока число положительное продолжаем выполнять цикл
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;x:=x-sum(x); //от числа отнимаем сумму его цифр
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;inc(k); //увеличиваем счетчик
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;writeln(k=, k);
end.