Вопрос, который вызвал трудности

Напишите на Paskal
Введите строку в которой записана сумма натуральных чисел например '1+25+3'

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var
  i, sum, beg:integer;
  str:string;

begin
  sum:=0;
  beg:=1;
  readln(str);
  for i:=1 to Length(str) do
    if str[i]='+' then
    begin
      sum:=sum+StrToInt(Copy(str, beg, i-beg));
      beg:=i+1;
    end;
  sum:=sum+StrToInt(Copy(str, beg, Length(str)));
  writeln(sum);
end.