function soma: integer;
var
   v, s : integer;
begin
   s := 0;   
   v := 0;
   while (v <> -1) do
   begin
      readln(v);
      if (v <> -1) then
	 s := s + v;
   end;
   soma := s;
end;