program podciagi;
uses crt;
var n,i,j,k,l,suma,max:integer;
	ciag:array[1..10000] of integer;
	podciag:array[1..10000] of boolean;
	
begin
	clrscr;
	read(n);
	for i := 1 to n do
	begin
		read(ciag[i]);
	end;
	
	for i := 1 to n do
	begin
		for j := i to n do
		begin
			suma := suma + ciag[j];
			if (suma mod 4 = 0) then
			begin
				for k := i to j do
				begin
					podciag[k] := true;
				end;
				if (suma >= max) then
				begin
					max := suma;
				end;
			end;
		end;
		suma := 0;
	end;

	write(max, ':');
	
	for l := 1 to n do
	begin
		if (podciag[l] = true) then
		begin
			write(' ', ciag[l]);
		end;
	end;
	
	readkey;
end.