Для числа подсчитывается сумма его цифр. Если результат превышает 9, то для результата снова подсчитывается сумма цифр и так далее, пока результат не станет меньше 10. Выполните расчеты для введенного с клавиатуры не более чем 50-значного числа.
Например, если исходное число 3247598, то результат 2.

var a:string;

function sum(num:string):integer;

var i,s,k,er:integer; st:string;

begin

s:=0;

for i:=1 to length(num) do

begin

val(num[i],k,er);

s:=s+k;

end;

if s>9 then begin str(s,st); sum:=sum(st); end

else sum:=s;

end;

begin

readln(a);

writeln('s=',sum(a));

end.

Пример:

99999999999

s=9