Если мы сложим все цифры какого-либо числа, затем все цифры найденной суммы и будем повторять много раз, мы, наконец, получим однозначное число (цифру), называемое цифровым корнем данного числа. Например, цифровой корень числа 34697 равен 2 (3+4+6+9+7=29; 2+9=11; 1 + 1=2). Составим программу для нахождения цифрового корня натурального числа.

program prim5;
  uses crt;
  var n, k, s: longint;
begin
  clrscr;
  writeln(' число='); readln(n);
  s:=n;
{Пока сумма является двузначным числом.}
  while s>9 do
    begin
      k:=s;s:=0;
{Вычисляем сумму цифр числа.}
      repeat
        S:=s+k mod 10; k:=k div 10;
      until k=0;
  end;
  writeln(' цифр. корень числа ',n, ' равен ',s);
  readln;
end.