Пример решения на языке программирования Pascal:

program SumOfNumbersInString;
function SumOfNumbers(str: string): integer;
var
i, sum, num: integer;
numberFound: boolean;
begin
sum := 0;
num := 0;
numberFound := False;
for i := 1 to Length(str) do
begin
if (str[i] >= '0') and (str[i] <= '9') then
begin
num := num * 10 + StrToInt(str[i]);
numberFound := True;
end
else
begin
if numberFound then
begin
sum := sum + num;
num := 0;
numberFound := False;
end;
end;
end;
if numberFound then
begin
sum := sum + num;
end;
SumOfNumbers := sum;
end;
var
inputString: string;
result: integer;
begin
Write('Введите строку из слов и чисел, разделенных пробелом: ');
Readln(inputString);
result := SumOfNumbers(inputString);
WriteLn('Сумма чисел во введенной строке: ', result);
end.

Это простая программа на языке Pascal, которая считывает строку с клавиатуры, обрабатывает её, и выводит сумму всех чисел, указанных в строке.