OlKob_1

Var
    A: Array [1..10] Of Integer;
    I: Integer; Mul: LongInt;
Begin
    WriteLn('Введите исходный массив:');
    Mul:= 1;
    For I:= 1 To 10 Do Begin
        Write('A[', I, '] = ');
        ReadLn(A[I]);
        If (I Mod 2) = 1 Then Mul:= Mul * A[I];
    End;
    WriteLn('Произведение: ', Mul);
    ReadLn;
End.