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

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.