Паскаль abc. задайте массив из 10 элементов с датчика случайных чисел. найдите произведение элементов, имеющих нечетные индексы. выведите на экран исходный массив и полученное произведение.

Const  n = 10;
var  a :array [1..n] of integer;  i, p :integer;
begin
  randomize;  for i:= 1 to n do    a[i]:= random(100);  p:= 1;  for i:= 1 to n do    if i mod 2 = 1 then      p:= p * a[i];  for i:= 1 to n do    write(a[i],' ');  writeln;  writeln(p);
end.