Простейший вариант программы, предполагающий, что строка записана абсолютно верно и содержит только числа, соединенные знаком "плюс".
const
digits=['0'..'9'];
var
s,sn:string;
i,err:integer;
n,sum:longint;
begin
Write('Введите числа, соединяя их знаком плюс: ');
Readln(s);
i:=2; sn:=s[1]; sum:=0;
while i<=Length(s) do begin<br> if s[i] in digits then sn:=sn+s[i]
else begin
Val(sn,n,err);
sum:=sum+n;
sn:=''
end;
Inc(i)
end;
Val(sn,n,err);
sum:=sum+n;
Writeln('Сумма равна ',sum)
end.
Тестовое решение:
Введите числа, соединяя их знаком плюс: 21+22+3
Сумма равна 46