Произведение отрицательных элементов массива.

Program gt;

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

n, i, p:integer;

begin

read (n) ;

{n-кол-во чисел в массиве}

p:=1;

for i:=1 to n do

begin

read (a[i]) ;

{a[i]-элементы массивва}

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

{p-произведение отрицательных элементов массива}

end;

writeln (p) ;

end.