Дан массив B,состоящий из 7 элементов (-7,1,8,-4,1,6,-5).Найти произведение отрицательных элементов массива.

uses crt;Var a:array [1..7] of integer;i,s:integer;beginfor i:=1 to 7 doreadln (a[i]);clrscr;for i:=1 to 7 do beginwrite (a[i]:4);if a[i]<0 then s:=s+a[i];end;writeln;writeln (s);end.