Напишите программу которая в последовательности натуральных чисел определяет количество чётных отрицательных чисел. В ПАСКАЛЕ, заранее спасибо)

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.