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

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.