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