var a, S: real;
i, N : integer;
begin
 S:= 1;
 readln(N);
 for i := 1 to N do begin
  readln(a);
  if a < 0 then
  S:= S*a;
 end;
 writeln(product:0:2);
end.