uses crt;
var i,n,t1,t2,s,max,min:longint;
a:array[1..100000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
s:=0;t1:=0;t2:=0;
max:=a[1]; min:=a[1];
for i:=1 to n do
begin
s:=s+a[i];
if a[i]>0 then t1:=t1+a[i];
if a[i]<0 then t2:=t2+a[i];
end;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('a, ',s);
writeln('b, ',t1,' ',t2);
write('c, ',min,' ',max);
readln
end.