[Kapitoshka438]

Результатом будет матрица порядка nxn, в которой элемент i-й строки j-го столбца будет равен скалярному произведению i-й строки матрицы B и j-й строки матрицы A.

Код:

var
  A, B, C: array [1..N, 1..N] of Double;
  I, J, K: Integer;

begin
  ...
  for I := 1 to N do
    for J := 1 to N do
    begin
      C[I, J] := 0;
      for K := 1 to N do
        C[I, J] := C[I, J] + B[I, K] * A[J, K];
    end;
  ...
end.

Что-то типа этого.