подсчитайте произведение отрицательных элементов массива, заполненного заранее известными значениями -24, 53, 76, -2, -43

var a:array[1..5] of integer=(-24,53,76,-2,-43);i,p:integer;beginp:=1;for i:=1 to 5 do if a[i]<0 then p:=p*a[i];writeln('p = ',p);end.Результат:p = -2064