Операції матричної алгебри

procedure plus(M1,M2:matrix;var M:matrix); // додавання матриць
var i,j:integer; begin
M.x1:=M1.x1;
M.x2:=M1.x2;
for i:=1 to M1.x1 do
for j:=1 to M1.x2 do
M.M[i,j]:=M1.M[i,j]+M2.M[i,j]; end;