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

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.