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.