program SumDigits;
function SumOfDigits(num: integer): integer;
var
digit, sum: integer;
begin
sum := 0;
while num <> 0 do
begin
digit := num mod 10;
sum := sum + digit;
num := num div 10;
end;
SumOfDigits := sum;
end;
var
num1, num2, num3: integer;
begin
writeln('Введите три числа:');
readln(num1, num2, num3);
writeln('Сумма цифр первого числа: ', SumOfDigits(num1));
writeln('Сумма цифр второго числа: ', SumOfDigits(num2));
writeln('Сумма цифр третьего числа: ', SumOfDigits(num3));
end.

Пример вывода:

Введите три числа:
123
456
789
Сумма цифр первого числа: 6
Сумма цифр второго числа: 15
Сумма цифр третьего числа: 24