Илья Андреев
это ссылка на условие задачи.
А вот,что у меня получилось.
program lab_6;
const N=5;
M=4;
type mass a=array [1..N,1..M] of real=((3.3,2.8,2.91,8.03),(-5.6,1.01,2.25,5.48),
(-5.4,3.08,6.2,4.85),(3.01,21.8,9.4,-51.4),(6.1,8.2,11.4,13.8));
type mass b=array [1..M] of real =(54.1,25.4,-1.01,6.8);
var a,b:real;
Procedure ProcC(a:massA,b:massB,var c:massB);
i,j:integer;
begin
for i:=1 to N do begin
C[i]:=0;
for j:=1 to M do C[i]:=c[i]+a[i,j]*b[j];
end;
begin
ProcC(c);
writeln (c:8:4, ' c ');
end.