Цифровой корень числа, Рекурсивная функция Опции

[natka]

Подскажите, дано число, нужно найти его цифровой корень (цифровой корень это суммирование цифр числа, затем цифр получившегося числа, пока эта сумма не станет цифрой). Программу, то я написала:

Код

var num,num_new,sum,a:integer;
BEGIN
writeln('chislo-?');readln(num);
repeat
      repeat
            a:=num mod 10;
            sum:=sum+a;
            num_new:=num div 10;
            num:=num_new;
      until num<10;
      sum:=sum+num;
      num:=sum;
      sum:=0;
until num<10;
writeln(num);
END.

проблема в том, что нужно сделать через рекурсивную функцию, а у меня с рекурсией очень плохо,
Может кто - нибудь подправит ;-(

[volvo]

Так:

function root(x: integer): integer;
var s: integer;
begin
  if x < 10 then root := x
  else begin
    s := 0;
    while x > 0 do begin
      inc(s, x mod 10);
      x := x div 10;
    end;
    root := root(s);
  end
end;

var n: integer;
begin
  readln(n);
  writeln( root(n) );
end.

?

[natka]

Спасибо,
Volvo, ты просто супер!