Var a :array [1..20, 1..20] of real;
    n,i,j: Integer;
    p:real;
begin
    Write ('Введите размерность:  n = ');
    ReadLn (N);
    WriteLn ('Введите элементы массива:');
for i := 1 to n do
for j := 1 to n do
    Begin
    Write ('a[', i,',', j,'] = ');
    ReadLn (a[i, j]);
    End;
p:= 1;
for i := 1 to n do
for j := 1 to n do
if (a[i,j])<0 then p:=p*a[i,j];
WriteLn ('Произведение всех отр. чисел: ',p: 6: 1);
end.

Решение задачи в приложенном файле