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