с сором выберите Команды установки формата типов данных

45% травм- бытовые, то есть полученные дома, например, ребенок опрокинул на себя кастрюлю с горячей водой ( ожог) или сунул пальцы в розетку ( удар электротоком)
36% травм- уличные, то есть полученные вне дома, на улице, например, ребенок упал с горки ( ушиб или перелом) или залез на дерево, упал и ударился головой ( сотрясение мозга или черепно- мозговая травма)
1%- школьная, например бежал и врезался в дверь со стеклом ( порезы) или на уроке физкультуры повредил ногу ( например ушиб )
4%- дорожная, это уже в основном ДТП, переходил дорогу в неположенном месте, сбила машина ( переломы, черепно-мозговые травмы и т.д.)

Var
  s,sd:string;
  i,n,sum,d,err:integer;
begin
  Writeln('Введите строку для суммирования');
  Read(s);
  sum:=0;
  n:=Length(s);
  if n>0 then begin
    i:=2; sd:=s[1];
    while i<=n do begin
      if s[i]<>'+' 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