Дано число. Найти среднее арифметическое его цифр

Это Паскаль, а мне нужно на языке СИ.

var a,s:integer;beginreadln(a);s:=0;While a>9 dobegins:=a mod 10;a:=a div 10;end;s:=s+a;writeln(s);end.