Написать программу в Паскаль абс по теме функции. задача: найти сумму цифр трех чисел.

function SumDigit(a: integer): integer; // функция считает сумму цифр в числе.
begin
while a > 0 do // пока не кончились цифры в числе.
begin
Result := Result + (a mod 10); // считаем сумму, начиная с последней цифры.
a := a div 10; // удаляем последнюю цифру из числа.
end;
end;

var // начало основной программы.
a,b,c, sum: integer; // объявляем переменные целочисленного типа.
begin
writeln('Введите три целых числа:'); // вывод на экран строки.
readln(a,b,c); // считываем введенные с клавиатуры числа.
sum := SumDigit(a) + SumDigit(b)+ SumDigit(c); // считаем сумму цифр всех трех чисел.
writeln('Сумма цифр в числах ',a,', ',b,', ',c,' равна: ',sum); // вывод строки на экран.
end.