Составить программу, реализующую умножение матриц размерностью 3 х3

program zz1;

var i, j: integer;

b, c, d: array[1 ... 3,1 ... 3] of integer;

begin

for i:=1 to 3 do begin / / заполняем первую матрицу

for j:=1 to 3 do begin

b[i, j]:=random (10) + 1;

write (b[i, j]:3);

end;

writeln;

end;

writeln;

for i:=1 to 3 do begin / / заполняем вторую матрицу

for j:=1 to 3 do begin

c[i, j]:=random (10) + 1;

write (c[i, j]:3);

end;

writeln;

end;

writeln;

for i:=1 to 3 do begin / / получаем третью матрицу

for j:=1 to 3 do begin

d[i, j]:=c[i, j] * b[i, j];

write (d[i, j]:3);

end;

writeln;

end;

end.