Program TaskJL6_4_3;
Var S : String;
Sum, x : Longint;
i, c, n : Byte;
Begin
Write('Введите текст ');
ReadLn(S);
S :=S+' '; {Добавление пробела в конец текста, чтобы строка не
канчивалась числом}
n := Length(S); {Значение переменной п - длина исходного текста}
x := 0; {Начальное значение формируемого числа}
For i := 1 to n Do {Если обозреваемый символ - цифра}
If (S[i]>='0') And (S[i]<='9') Then {Формирование числа}
Begin
c := Ord(S [i] ) -Ord ('0') ;
x := x*10+c ;
End
Else Begin
Sum := Sum+x; {Увеличение суммы на значение полученного числа}
x:= 0; {Начальное значение нового числа}
End;
{Вывод ответа}
WriteLn('Сумма чисел строки равна ', Sum)
End.