Составьте программу которая формирует массив из 8 целых чисел [0,10] и выводит элементы массива в строку. затем находит произведение нечётных элементов и выводит результат

program fantscrin;

  const n = 8;

  var a: array [1..n] of integer;

      i,s: integer;

begin

  for i: =1 to n do

    a[i]: = random(11)+1;

  for i: =1 to n do

    write(a[i], '   ');

  p: =1;

  for i: =1 to n do

    if (i mod 2 < > 0) then p: =p*a[i];  

  writeln('');

  writeln('произведение = ',p);

end.