var
  i, n: integer;
  s: byte;
  arr: System.Collections.Generic.List<integer> := new System.Collections.Generic.List<integer>();
  
begin
  write('Enter a number of values: ');
  readln(n);
  for i := 0 to (n - 1) do
  begin
    arr.Add(random(-50, 50));
    write(String.Format('[{0}] => {1}; ', i, arr[i]));
    if ((arr[i] < 0) and (arr[i] mod 2 = 0)) then
      s += 1;
  end;
  writeln(System.Environment.NewLine, '> ', s);
end.