задано натуральное число N, вычислите сумму цифр числа используя цикл while

Последнюю цифру числа определяем как остаток от деления на 10. Добавляем найденное число к сумме. После находим целое число от деления числа на 10 (отбрасываем последний разряд). Далее цикл повторяется, пока не будут в сумму занесены все цифры числа.

program number_sum;

var n, s: integer;

begin

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

read (n);

s:=0;

while n >0 do

begin

s : = s + n mod 10;

n : = n div 10

end;

writeln (s)

end.