program masuvu_1_15;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a:array[1..10000] of integer ;
  s1,s2,i,n:integer;
begin
  readln(n);
  s1:=0;
  s2:=0;
    for i:=1 to n do
  readln(a[i]);
  for i:=1 to n do
  begin
  if a[i]<0 then
  s1:=s1+a[i];
  if a[i]>0 then
  s2:=s2+a[i];
  end;
  writeln('s1= ',s1);
  writeln('s2= ',s2);
  readln;
end.