Код:

program ABC;
var
const
R=500;
matr1,matr2,matr3,matr4: array[1..R,1..R] of real;
i,j,m,n,p,s,g: integer;
S:real;
Begin
read (g) {размерность матрицы gxg}
for i:=1 to g do
for j:=1 to g do
begin
read(matr1[i,j]);
end;
for m:=1 to g do
for n:=1 to g do
begin
read(matr2[m,n]);
end;
for p:=1 to g do
for s:=1 to g do
begin
read(matr3[p,s]);
end;
D[i,j] := D[i,j] + (A[i,j]*B[j,i])*C[j,i];
Вот формула
Значит матрицы мною заданны, как теперь задать их перемножение?