var x,s:int64;
begin
s:=0;
repeat
read(x);
inc(s,x);
until x=-1;
writeln(s+1);
end.
编程题（free pascal）：求总和.
输入：只有一行有若干个正整数,数与数之间用一个空格隔开,以-1为结束标记
（每一正整数不超过1 000 000 ,整数个数不超过10000个）
输出：只有一行且只有一个正整数,输入的若干个正整数之和
例如：
输入：1 3 5 -1
输出：9
var x,s:int64;
begin
s:=0;
repeat
read(x);
inc(s,x);
until x=-1;
writeln(s+1);
end.