Program Lab8_18; uses crt;

const size_n=10; {Размер массива}

type vector=array [1..size_n] of real; {Описываем тип для вектора}

var x:vector;
    pr:real;
    i:byte;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
for i:=1 to size_n do
    Begin
    Write(' Введите ',i:2,'-й элемент: '); Readln(X[i]);
    end;

Write('--------------------------------------------------------------------------------');
Writeln(' Исходный массив:');
for i:=1 to size_n do Write(X[i]:7:2);
Writeln;

Pr:=1;
Write('--------------------------------------------------------------------------------');
Writeln(' Элементы с нечетными индексами:');
for i:=size_n downto 1 do if Odd(i) then
                    Begin
                    Pr:=Pr*X[i];
                    Write(X[i]:7:2);
                    end;
Writeln;
Write('--------------------------------------------------------------------------------');
Writeln(' Произведение элементов с нечетными индексами:', Pr:8:2);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.