program SumOfDigits;
var
num, sum, digit: integer;
begin
write('Введите трехзначное число: ');
readln(num);
sum := 0;
digit := num mod 10; // находим последнюю цифру
sum := sum + digit;
num := num div 10; // убираем последнюю цифру
digit := num mod 10; // находим следующую цифру
sum := sum + digit;
num := num div 10; // убираем следующую цифру
sum := sum + num; // осталась только одна цифра, добавляем ее к сумме
writeln('Сумма цифр числа: ', sum);
end.