ОЧЕНЬ Необходимо, РЕБЯТ!!! Задан массив Х[1..N].Какое условие надобно поставить заместо многоточия,

ОЧЕНЬ Необходимо, РЕБЯТ!!!
Задан массив Х[1..N].Какое условие надобно поставить заместо многоточия, чтоб отыскать творенье отрицательных элементов массива переменной P?
P:=0;
for k:=1 to N do begin
if ... then P:=P*X[k];
end;