Ответ:

var num: integer;

begin

writeln('Введите натуральное трехзначное число:');

readln(num);

writeln('Сумма цифр равна: ',(

(num div 100) + //Сотни

((num div 10) mod 10))+  //Десятки

(num mod 10)); // Единицы

end.