Паскаль АВСВведите строчку, в которой записана сума натуральных чисел, например, "1+25+3".

Как я разумею задачку, имеется в виду, что в строке находятся числа, соединенные меж собой знаком "плюс" и их количество ограничено только длиной строчки.

моя программка считает только числа, а не сами числа

Это не ответ на мой вопрос

а это был вопрос

Превосходно, переформулирую. Правильно ли, что в строке находятся числа, соединенные между собой знаком "плюс" и их количество ограничено только длиной строчки?

да

Var
  s,sd:string;
  i,n,sum,d,err:integer;
begin
  Writeln('Введите строку для суммирования');
  Read(s);
  sum:=0;
  n:=Length(s);
  if ngt;0 then begin
    i:=2; sd:=s[1];
    while ilt;=n do begin
      if s[i]lt;gt;'+' then sd:=sd+s[i]
      else begin
        Val(sd,d,err);
        sum:=sum+d;
        sd:=''
      end;
      Inc(i);   
    end;
    Val(sd,d,err);
    sum:=sum+d
  end;
  Writeln('Сумма одинакова ',sum)
end.

Тестовые образцы:
Введите строчку для суммирования
1+25+3
Сумма равна 29

Введите строку для суммирования
143+38+253+62
Сумма равна 496