как перемножить матрицы?

[phasha]

элементарная линейная алгебра,была в том году ито поверхностно так что я ее уже забыл((подскажите как перемножить квадратную 3 на 3 матрицу на другую состоящую из 1 столбца и 3 строк?знаю только формулу
X=A^(-1)*B;

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var A:array [1..3,1..3] of Real;
      B:array [1..3] of Real;
      X:array [1..3] of Real;
  i,j:Integer;  aaa:Real;
begin         for i:=1 to 3 do x[i]:=0;
    for i:=1 to 3 do
    for j:=1 to 3 do begin
        write('vvedi a[',i,',',j,']= ');
        Readln(aaa);
        a[i,j]:=aaa;
    end;
   for i:=1 to 3 do  begin
   write('vvedi b[',i,']= ');
        Readln(aaa);
        b[i]:=aaa;       end;
        Writeln(#13);
        for i:=1 to 3 do
   writeln(a[i,1]:1:0,'x1+',a[i,2]:1:0,'x2+',a[i,3]:1:0,'x3=',b[i]:2:0) ;

  Readln;
end.

[Abstraction]

"Строка на столбец."
Для получения элемента (i,j) матрицы произведения нужно сложить поэлементные произведения содержимого строки i первого множителя на столбец j второго.

[phasha]

то есть общая формула выглядит примерно так:
x[i]=\summ (a[i,j]^(-1)*b[i])?

[Abstraction]

Что за ^(-1)? Для примера:

1 0 2         2         1*2+0*1+2*0         2
3 4 1    х    1    =    3*2+4*1+1*0    =    10
6 2 0         0         6*2+2*1+0*0         14

[phasha]

да это для нахождения X))спасибо за пример!