Developing.ru

Помогите составить програму. В(30) э [-40;40]
найти все произведения положительный чисел, найти сумму все отрицательных чисел.

for i:=1 to 30 do
if B>0 then proizv:=proizv*B
else if B<0 then summ:=summ+B;