Дана строка состоящая из букв и цифр. Сложить все цифры в строке.

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.