(это вроде как друг к другу относятся) составить на языке паскаль программу обработки одномерного массива (допускается использование любых операторов цикла) найти произведение отрицательных элементов массива d(11),стоящих на нечетных местах (блок схему алгоритмов тоже нужно )

Var
  i: integer;
  D: array[1..11] of real;
  P: real;
begin
  for i:=1 to 11 do
    begin
      write(i,' элемент массива: ');
      read(D[i]);
    end;
  i:=1;
  P:=1;
  while i <= 11 do
    begin
      if D[i] < 0 then P:=P*D[i];
      i+=2;
    end;
  write(P);
end.