С клавиатуры вводится число N, а затем N чисел. Найти произведение отрицательных.

var a:array[1..10000] of longint;

 i,n,k:longint;

begin

 readln(n);

 for i:=1 to n do

  read(a[i]);

 k:=1;

 for i:=1 to n do

  if a[i]<0

   then

    k:=k*a[i];

 writeln(k);

 readln

end.