С клавиатуры вводится строка.
Подсчитать и вывести сумму чисел в строке.
Pascal ABC

Var   R,A:real;   S:string;   i,z,L:integer;BeginRead(S);S:=' '+S;L:=Length(S);i:=1;R:=0;RepeatCase S[i] of'0'..'9':         Begin         A:=0;         if S[i-1]='-' then z:=1         else z:=0;         While (S[i]in['0'..'9'])and(i<L) do            Begin            A:=A*10+StrToInt(S[i]);            i:=i+1            End;         if (i=L)and(S[i]in['0'..'9']) then A:=A*10+StrToInt(S[i]);         if z=0 then R:=R+A         else R:=R-A;         End;End;i:=i+1Until i>L;WriteLn('Сумма чисел в строке: ',R)End.