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

var   i,n,k:integer;   p:longint;   f,ff:boolean; begin   Write('Введите количество чисел -> '); Readln(n);   Writeln('Тeперь вводите сами числа');   p:=1; f:=false; ff:=false;   for i:=1 to n do   begin     Read(k);     f:=((k<0) and ((k mod 2)<>0));     ff:=(ff or f);     if f then p:=p*k   end;   if ff then Writeln('Произведение нечетных отрицательных чисел: ',p)   else Writeln('Не было введено ни одного отрицательного нечетного числа') end. Тестовое решение: Введите количество чисел -> 10 Тeперь вводите сами числа 5 -7 16 0 -3 4 -6 2 1 8 Произведение нечетных отрицательных чисел: 21