program Proizvedenie;

var
N, i, num: integer;
proizv: integer;

begin
writeln('Введите количество чисел: ');
readln(N);

proizv := 1;

writeln('Введите числа: ');
for i := 1 to N do
begin
readln(num);
if (num < 0) and (num mod 2 <> 0) then
begin
proizv := proizv * num;
end;
end;

writeln('Произведение отрицательных нечетных чисел: ', proizv);

end.