При рассмотрении судебных дел в установленном законом процессуальном порядке суд выносит судебные постановления в виде решения или определения

Семь бед - один ответ.

Кто заварил, тот и расхлебывает.

Кому поручают, тот и отвечает.

Первый в совете - первый в ответе.

Незнание ответственности не снимает.

Хорошо жить в почёте, да ответ велик.

Один нагрешил, а все отвечают.

Чего не знаешь, за то не отвечаешь.

Сами заварили, семи и расхлебывайте.

Валяй, дети: отец в ответе.

Кто поручает, тот и отвечает.

Кто зачинает, тот и отвечает.

Чего недосмотришь, за то и ответишь.

Печать-то печать, а кто будет отвечать? Рука согрешит, а голова в ответе.

Отвечает тот, кто приказывает.

Сколько голов - столько умов, а отвечать одной голов».

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