Дана строка. Найти сумму записанных в строке чисел.

program zz1;

var s:string; / / задаем переменную строкового типа

i, m, k:integer; / / задаем переменные целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=1 to length (s) 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 k:=strtoint (s[i]); m:=m + k; end; / / переводим символ в число и прибавляем его к сумме

writeln (' сумма цифр в исходной строке = ', m); / / выводим ответ

end.