freepascal输入n个以逗号作为分隔符的整数,输出它们的累加和答:程序已经完成并运行通过:var s,s1:string; n,x,i,j:longint; t:byte;begin readln(s);while true do begin j:=pos(',',s);if j=0 then begin val(s,x,t); inc(n,x); break end;s1:=copy(s,1,j-1); val(s1,x,t); inc(n,x); delete(s,1,j);end;writeln(n);end...