даны числа от -10 до 15. найти сумму положительных и производение отрицательных. ПРОШУ ПОМОГИТЕ!!

Из программы получаем сумма положительных равна 120, произведение отрицательных равно 3628800

Положительные числа: 1+2+3+4+5+6+7+8+9+10+11+12+13+14+15=120Отрицательные числа: -10-9-8-7-6-5-4-3-2-1= -55

var a,b,n:integer;begina:=1;n:=-10;while n<=15 dobeginif n<0 then a:=a*n else b:=b+n;n:=n+1;end;write (a:6,b:6);end.