С КЛАВИАТУРЫ ВВОДЯТ ПРОИЗВОЛЬНОЕ НАТУРАЛЬНОЕ ЧИСЛО.
ВЫВЕСТИ НА ЭКРАН СУММУ ЦИФР ЭТОГО ЧИСЛА..

var a,x:integer; Sum: integer; begin  WriteLn('введите целое число'); ReadLn( a ); x:= a;  Sum:= 0;  while ( x<>0 ) do  begin    Sum := Sum + (x mod 10);    x := x div 10;  end; WriteLn( 'Сумма цифр числа ',a,' = ', Sum );Пока Х больше нуля:Находим остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;Избавляемся от последнего разряда числа n путем деления нацело на число 10.