Задано натуральное число n. Найти сумму цифр данного числа с помощью функции !!!паскаль

01.01.2001

задано натуральное число n. Найти сумму цифр данного числа с помощью функции !!!паскаль
Помогите пожалуйста решить задачу! Вот решал ...но нужно через функцию! помогите плиз оч нужно !
program roro;
var n,sum,mult:integer;
begin
write(' Введите число: ');
readln(n);
sum:=0;
mult:=1;
while n>0 do begin
sum:= sum+n mod 10;
mult:=mult*(n mod 10);
n:=n div 10
end;
writeln(' Сумма = ', sum);
writeln(' Произведение = ', mult);
end.

  • function sum(n: longint): integer;
    var
    s: integer;
    begin
    s := 0;
    n := abs(n);
    while n > 0 do begin
    inc(s, n mod 10);
    n := n div 10;
    end;
    sum := s;
    end;

    var
    n: integer;
    begin
    write(' Введите число: ');
    readln(n);
    writeln(' Сумма = ', sum(n));
    end.

Вас заинтересует