program massiv;

uses crt;
var 
a: array[1..10] of integer;
needs: array[1..10] of boolean;
answer, i: integer;
BEGIN
	answer:=0;
	for i:=1 to 10 do begin
		readln(a[i]);
		if a[i]<0 then
			needs[i]:=true;	
	end;
	for i:=1 to 10 do 
		if needs[i] then begin
			writeln(i, ' ', a[i]);
			answer:=answer+a[i];
		end;
	writeln(answer);
	readkey();
END.