написать в пескале программу которая вычисляет произведение отрицательных элементов матрицы.

mult:=1;
for i:= 1 to masSize do
if mas [ i ] < 0 then mult:= mult * mas [ i ];
writeln('result = ', mult);