program Array9;
var
  a: array of integer;
  i, n, count: integer;
begin
  WriteLn ('Длина массива:');
  ReadLn (n);
  SetLength(a, n);
  WriteLn ('Введите ', n, ' чисел:');
  for i := 0 to n - 1 do
    Read (a[i]);
  ReadLn;  
  count := 0;
  WriteLn ('Нечётные числа: ');
  for i := n - 1 downto 0 do
    if not(odd(a[i])) then
    begin
      Write (a[i], ' ');
      Inc(count);
    end;
  WriteLn;
  WriteLn ('Количество: ', count);
  ReadLn;
end.