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

Program Ok;
var a,i,n,proiz:integer;
begin
readln(N);
proiz:=1;
for i:=1 to n do 
begin
read(a);
if(a<0) then
proiz:=proiz*a;
end;
write(proiz);
end.