Код программы в PASCAL, СРОЧНО! Условие: Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа).

program wtf;var a,b,c,S:integer;beginwriteln('Введите a');readln(a);writeln('Введите b');readln(b);writeln('Введите c');readln(c);S:=a+b+c;writeln('Сумма цифр= ',S);end.