Используя подпрограмму-функцию написать алгоритм решения задачи: Написать функцию, которая находит сумму цифр целого числа.

function sumd(n: integer): integer;var s: integer;begin  s:=0;  while n>0 do  begin    s:=s+n mod 10;    n:=n div 10;  end;  sumd:=s;end;// основная программаvar n: integer;begin  write('n = '); readln(n);  writeln('сумма цифр: ',sumd(n));end.