var i,k,n:longint; a:array[0..1] of longint;
begin
  readln(n);
  for i:=1 to n do begin
    readln(k);
    inc(a[i mod 2],k);
  end;
  writeln(a[1]);
  writeln(a[0]);
  writeln(abs(a[0]-a[1]));
end.

/**************************************************************
	Problem: 2039
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/