Написать программу(Delphi или Pascal) для вычисления минимального произведения отрицательных подряд идущих элементов одномерного массива.

Const n=10 ;var A: array [1..n] of integer;p,  min, i, : integer;beginrandomize;for i:= 1 to n dobeginA[i]:= -100 + random (200);write (A[i]: 5);end;writeln;min:=100000000;p:=1;for i:=1 to n doif A[i] lt; 0 then  p:=p*A[i]      else      Begin        if plt; min then min:=p;              p:=1;      End;       if plt;min then min:=p;        writeln (min p= , min );end.