дана строка, состоящая только из цифр. Отыскать сумму этих цифр.

program zz1;
var s:string;
i,d,k,g,c:integer;
begin
read(s); //вводим начальную строчку
d:=length(s); //определяем длину начальной строчки
for i:=1 to d do //перебираем все буковкы от первой до заключительной
if (s[i]=0)or(s[i]=1)or(s[i]=2)or(s[i]=3)or(s[i]=4)or(s[i]=5)or(s[i]=6)or(s[i]=7)or(s[i]=8)or
(s[i]=9) then begin val(s[i],k,g);c:=c+k;end; //проверяем, если знак из строки равен цифре, то переводим эту цифру из строкового формата в числовой формат и прибавляем это число к сумме
writeln(приобретенная сумма цифр строчки - ,c); //выводим ответ
end.