program ArrayNoobas;
uses crt;
const
  Max=20;
var
  a:array [1..MAX] of real;
  i,kol:integer;
  pro:real;
  t:boolean;
  procedure zapoln;
  begin
    clrscr;
    for i:=1 to MAX do
    a[i]:=-5+random(10);
  end;

  procedure create_t;
  var
    key:char;
  begin
    repeat
      key:=readkey;
    until (key='0')or(key='1') ;
    if key='0' then t:=false
    else t:=true;
  end;

begin
  zapoln;
  create_t;
  if t=true then begin
    for i:=1 to MAX do
      if a[i]>0 then inc(kol);
    writeln(kol);
  end
  else begin
    i:=1;
    while i<=MAX do begin
      inc(i);
      if a[i-1]<0 then begin
	pro:=a[i-1]; break; end;
    end;
    while i<=MAX do begin
      if a[i]<0 then
	pro:=pro*a[i];
      inc(i);
    end;
    writeln(pro);
  end;
  readln;
end.