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

//Pascal ABC.NET v3.1 сборка 1219 Var  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