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

Program Ok;var a,i,n,proiz:integer;beginreadln(N);proiz:=1;for i:=1 to n do beginread(a);if(a<0) thenproiz:=proiz*a;end;write(proiz);end.