Переписать программу с Паскаля в Си

Помогите пожалуйста переписать программу с Паскаля в Си
Вот сам код:

uses crt;
var s: string; i: byte; sum: integer;
begin
write('s='); readln(s);
for i:=1 to length(s) do
if s in ['0'..'9']
then inc(sum,ord(s)-48);
writeln(sum);
readln;
end.