program array10;
var arr: array[1..100] of integer;
  N, i: integer;
Begin
write('Введите количество элементов массива: ');
readln(N);
writeln('Введите элементы массива: ');
for i:=1 to N do
  readln(arr[i]);
write('Чётные элементы массива: ');
for i:=1 to N do
  if arr[i] mod 2 = 0 then
    write(arr[i], ', ');
writeln();
write('Нечётные элементы массива в обратном порядке: ');
for i:= N downto 1 do
  if arr[i] mod 2 = 1 then
    write(arr[i], ', ');
end.