Найти произведение элементов на нечетных местах массива — Pascal(Паскаль)

program qwe;

const
  n = 10;

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

begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(10);
    writeln(a[i]);
  end;
  i := 1;
  s := 1;
  while i <= n do
  begin
    s := s * a[i];
    i := i + 2;
  end;
  writeln('s=', s);

end.