Question

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

Answer 1

 procedure  SumDigit(N:byte; var S:byte);
begin
S:=N mod 10+N div 10;
end;