var
 i, j, a:integer;
 c:real;
 sum, dob, kil:longint;
begin
sum:=0; dob:=1; kil:=0;

read(i);

for j:=1 to i do begin
      read(c);
  if (c = 0)or(frac(c)<>0)then kil:=kil+1 else
  begin
  a:=trunc(c);
      if a mod 2 = 0  then sum:=sum+a else
         if (a mod 2 <> 0) then dob:=dob*a;
  end;
end;
writeln('sum=',sum,'; dob=',dob,'; else=',kil);
end.