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

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.