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

[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.

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