program ArrayExample;

var
arr: array of integer;
N, product, i: integer;

begin
write('Введите количество элементов массива: ');
readln(N);

SetLength(arr, N);

write('Введите элементы массива: ');
for i := 0 to N-1 do
read(arr[i]);

product := 1;

for i := 0 to N-1 do
begin
if i mod 2 <> 0 then
begin
product := product * arr[i];
end;
end;

writeln('Новый массив:');
for i := 0 to N-1 do
begin
if i mod 2 <> 0 then
begin
write(arr[i], ' ');
end;
end;

writeln;
writeln('Произведение оставшихся элементов: ', product);

end.