Просил решить задачу, но никто не отписАл... Вот, если у кого будет такая/похожая выкладываю решение:
Program matrix2;
Uses CRT;
Var b:array [1..2,1..4] of real;
i,j:integer;
p,p1,p2:real;

BEGIN
ClrScr;
b[1,1]:=-4.1;
b[1,2]:=5.8;
b[1,3]:=-6.7;
b[1,4]:=4.3;
b[2,1]:=2.1;
b[2,2]:=-5.1;
b[2,3]:=6.3;
b[2,4]:=-4.7;

Writeln('vivod matrx');
For i:= 1 to 2 do
begin
For j:=1 to 4 do
begin
Write(b[i,j]:3:1);
Write(' ');
end;
Writeln;
end;
p:=0;
p1:=0;
p2:=1;
For j:=1 to 4 do
begin
p1:=p1+b[1,j];
p2:=p2*b[2,j];
end;
p:=p1-p2;
Writeln('p=',p:6:2);
readkey;
END.