program SumOfDigits;
var
num, sum, digit: integer;
begin
sum := 0;

// считываем число с экрана
Write('Введите число: ');
ReadLn(num);

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

// выводим сумму цифр числа на экран
WriteLn('Сумма цифр числа: ', sum);
end.