Const N = 10;
Var
  A:Array [1..N] Of Integer;
  i, j, temp:Integer; 
  
Begin
  randomize;
  For i := 1 to N do
  Begin
    temp := random(2);
    A[i] := random(16);
    if temp = 1 then
    Begin
      A[i] := A[i] * -1;
    End;
  End;
  For i := 1 to N do
  Begin
    writeln(A[i], '; ');
  End;
  temp := 1;
  For i := 1 to N do
  Begin
    if i mod 2 = 1 then
    Begin
      temp := temp * A[i];
    End;
  End;
  if temp mod 2 = 0 then
  Begin
    writeln('Произведение чисел четное!');
  End
  else
  Begin
    writeln('Произведение чисел нечетное!');
  End;
End.