Программа. Дана последовательность литер, имеющая следующий вид; d1±d2±...±dn (di—цифры, n>1), за которой следует точка. Вычислить значение этой алгебраической суммы.
Вот код, но щитает толька первые два числа, помогите переделать:
program z6_26;
uses crt;
var s,s1,s2: string;
l,f,k,z,i,a,c,v: integer;
begin
clrscr;
write ('Wwedit radok ');
read (s);
f:=(-1); k:=0; z:=0;
l:=length(s);
l:=l div 2;
for i:=1 to l do
begin
f:=f+2;
s1:=copy(s,f,f);
k:=k+2;
s2:=copy(s,k,k);
val(s1,c,a);
val(s2,v,a);
z:=z+v+c;
end;
writeln ('Znachenna algebraichnoi sumy = ',z);
readkey;
end.