Программа на PascalABC.NET:

var n, sum: integer;

begin

sum := 0;

write('Введите число: ');

read(n);

write('Сумма цифр числа ', n, ' = ');

while n <> 0 do begin

 sum := sum + n mod 10;

 n := n div 10

end;

write(sum);

end.