Program n1;var a,k,i,ko,p: integer;beginwrite('введите кол-во чисел: ');readln(k);i:=1;ko:=0;p:=1;while k>i-1 do beginwrite('введите ',i,' число: ');readln(a);if a<0 then ko:=ko+a;if a mod 2<>0 then p:=p*a;i:=i+1;end;writeln('кол-во отриц: ',ko);writeln('произв. нечет: ',p);end.