Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
Напишите прогу пож-ста прям здесь, если не трудно
procedure SumDigit(n: Integer; var s: Integer);
var
h: Integer;
begin
h:=n;
while not (h=0) do begin
s:=s+abs((h mod 10));
h:=h div 10;
end;
end;