Ответ:

program z1;

var i,a,k,p:integer;

begin

k:=0;

p:=1;

for i:=1 to 12 do

begin

write('Введите число: ');

readln(a);

if a < 0 then k:=k+1;

p:=p*a

end;

writeln('Произведение чисел: ',p);

writeln('Отрицательных чисел: ',k)

end.

Объяснение:

картинка

если надо вводить большие числа, то изменить описание переменных на

var i,a,k:integer;

p:real;