program asd;

var
  a: array [1..10] of integer;
  i, k, s, sum: integer;

begin
  sum := 0;
  k := 0;
  s := 1;
  for i := 1 to 10 do
  begin
    a[i] := random(201) - 100;
    sum := sum + a[i];
    if a[i] mod 2 = 0 then k := k + 1 else s := s * a[i];
  end;
  if sum > 10 then writeln('Кол-во четных - ', k) else writeln('Произведение нечетных - ', s);
end.