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.