program cetvrta;
var
n,i,t,x:integer;
a:array[1..100]of integer;
begin
writeln('Vnesi go n');
readln(N);
for i:=1 to n do
begin
     readln(a[i]);
     if (a[i]<0) then t:=t+a[i] else x:=x+a[i];
end;
writeln('Zbir na parni clenovi: ',x);
writeln('Zbir na negativni clenovi: ',t);
readln;
end.