Ответ:

program z1;

var a,pp,po:real;

i:integer;

begin

pp:=1;

po:=1;

for i:=1 to 10 do

begin

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

read (a);

if a>0 then pp:=pp*a;

if a<0 then po:=po*a

end;

writeln ('Произведение положительных: ',pp);

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

end.

Объяснение:

Начальные произведения равны 1

Цикл с параметром:

1) ввод числа

2) если число положительное, то умножаем число на произведение положительных чисел

3) если число отрицательное, то умножаем число на произведение отрицательных чисел

Вывод произведений