program SumOfDigits;

var
number, sum, digit: integer;

begin
sum := 0;

write('Введите натуральное число: ');
readln(number);

while number > 0 do
begin
digit := number mod 10; // находим последнюю цифру числа
sum := sum + digit; // добавляем цифру к сумме
number := number div 10; // удаляем последнюю цифру из числа
end;

writeln('Сумма цифр числа: ', sum);
end.

В этой программе мы сначала объявляем переменные number (для хранения вводимого пользователем числа), sum (для хранения суммы цифр числа) и digit (для хранения текущей цифры числа).
Затем мы просим пользователя ввести натуральное число и считываем его с помощью readln.
Затем запускаем цикл while, в котором выполняются следующие действия:

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