Срочно! Pascal ABC!
Дано натуральное число N. Вычислите сумму его цифр.При решении этой задачи нельзя использовать строки, массивы (ну и циклы, разумеется).

//Pascal ABC.NET v3.1 сборка 1219Var n,s:integer; procedure sumforfunclang(n:integer;var s:integer); begin  if n>0 then   begin    s:=s+n mod 10;    n:=n div 10;    sumforfunclang(n,s);   end; end; begin readln(n); sumforfunclang(n,s); writeln(s);end.Пример ввода:34Пример вывода:7