Delphi. Сумма цифр числа.

[jogik]

Помогите написать программу в Delphi (процедуры)!?
Описать процедуру SumDigit(N,S),находящую сумму цифр S целого числа N (N-входной,S-выходной параметр).Используя это процедуру,найти суммы цифр пяти данных чисел.

[Naeel Maqsudov]

Код: Выделить всё

procedure SumDigit(N: integer; var S:integer);
begin
   S:=0;
   while N<>0 do begin
      S:=S+N mod 10;
      N:=N div 10;
   end;
end;