Pascal (Паскаль) Процедуры и функции_2

[DRGNforce]

Описать рекурсивную функцию, определяющую сумму цифр заданного натурального числа n

[Z1000000]

Вот так как-то...

program Program2;
var
 Str : String;
 R : Integer;

function YourFunc( aStr:String ): Integer;
var
 aNum,Code : Integer;
begin
if aStr = '' then
 begin Result := 0; Exit; end
else
 begin
 Val(aStr[1],aNum,Code);
 Result := aNum + YourFunc(copy(aStr,2,Length(aStr)-1));
 end;
end;

begin
readln(Str);
R := YourFunc(Str);
writeln ('Сумма цифр : ',R);
end.

[DRGNforce]

Спасибо! большое