Вывести строку, в которой записана сумма натуральных чисел,например '21+22+3' . Вычислить это выражение.

Простейший вариант программы, предполагающий, что строка записана абсолютно верно и содержит только числа, соединенные знаком "плюс". 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     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