С тебя плюсы в репутацию за потраченое время

uses crt;
type
array_ = array[1..5,1..3] of real;
array2 = array[1..3] of real;
var
j: integer;
a:array_;
P:array2;
procedure dobytok(ar:array_ ;j:integer ;var P:array2);
var i,j_:integer;
begin
for j_:=1 to 3 do begin
P[j_]:=1;
for i:=1 to 5 do begin
if ar[i,j_] < 0 then P[j_]:=P[j_] * ar[i,j_];
end;
end;
end;

begin
clrscr;
a[1,1]:=0.375; a[1,2]:=-2.36; a[1,3]:=3.75;
a[2,1]:=4.91; a[2,2]:=-1.416; a[2,3]:=-1.02;
a[3,1]:=-1.777; a[3,2]:=13.46; a[3,3]:=-3.49;
a[4,1]:=-3.154; a[4,2]:=8.461; a[4,3]:=1.318;
a[5,1]:=4.263; a[5,2]:=-5.912; a[5,3]:=0.345;

dobytok(a,j,P);
write('result: P=(',P[1]:3:3,',',P[2]:3:3,',',P[3]:3:3,')');
repeat until keypressed;
end.