В2001 году предприятие приобрело 5 кранов по оптовой цене 19,8 тыс рублей в 2010 году приобрели ещё 4 крана по оптовой цене 18,5 тыс рублей с учётом затрат на транспортировку и монтаж. определить полную первоначальную и полную в восстановительную стоимость всех кранов на 1 января 2011 года

Я очень люблю наш школьный двор. Это не просто площадка, это центральное место всех событий школьной жизни. Ведь задумайтесь: куда бегут школьники в теплую погоду обсудить на переменках свои дела? Во двор  школьный двор - это необычайно интересное место для наблюдений. Давайте посмотрим. Вот звенит звонок со второго урока - все во двор. И начинается: кто в резиночки прыгать, кто цветы на клумбах поливать, кто обсуждать, справедливо ли ему лоставили оценку, а кто из старшеклассников и... покурить. Все заняты, ведь двор большой, всем места хватает. Выходя из школы, мы видим справа и слева две цветущие клумбы, за которыми постоянно ухаживают. Если ученику захочется пятнадцать минут своего отдыха провести среди зелени, не выходя за пределы школьного двора, он может пройти за школу, в сад. Там растут фруктовые деревья, цветут кустарники, очень много сирени! Побегаешь среди этой красоты - и усталость как рукой снимает, можно снова приступать к урокам.Наш школьный двор прекрасен: он уютный, светлый и просторный. Я бы ни за что не променяла его на тысячи других школьны

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.