Поцедура нахождения суммы цифр натурального числа на Паскале

[rom6520]

Использовать процедуру нахождения суммы цифр натурального числа ,каждого из трех чисел больше??? как это решить кто знает прошу помочь !!!! Буду признателен вашей помощи!!!

[Z1000000]

Для начала

{Сумма цифр натурального числа}
Program lab1;
var
 N,D,S : Integer;
begin
read(N);
S := 0;
while ( N > 0 ) do
 begin
 D := N mod 10;
 N := N div 10;
 S := S + D;
 end;
write ( S );
end.