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