Program lab1;
//3*(A + B) - (A - B)*A

{$APPTYPE CONSOLE}

//constant part
const
  n=3;//size of the matrix

//type part
type
  Matrix=array[1..n,1..n] of Integer;//type of matrix

//variable declaration
var
  C,D:Matrix;//result matrix
  A:Matrix = ((1,2,3),   //given matrix
             (0,-2,3),
             (1,1,1));
  B:Matrix = ((4,2,1),
             (-1,2,0),
             (2,3,-1));

//procedure of matrix multiplication
procedure MoM(M1,M2:matrix;size:Integer;var ResM:matrix);
var
  i,j,m:integer;//loop counters
begin
  for i := 1 to size do
  for j := 1 to size do
  begin
    ResM[i,j] := 0;
    for m := 1 to size do
      ResM[i,j] := ResM[i,j] + M1[i,m] * M2[m,j];
    end;
end;

//procedure of matrix addition
procedure Sum(M1,M2:matrix;size:Integer;var ResM:matrix);
var
  i,j:integer; //loop counters
begin
  for i := 1 to size do
  for j := 1 to size do
    ResM[i,j] := M1[i,j] + M2[i,j];
end;

//procedure of matrix subtraction
procedure Subtr(M1,M2:matrix;size:Integer;var ResM:matrix);
var
  i,j:integer; //loop counters
begin
  for i := 1 to size do
  for j := 1 to size do
    ResM[i,j] := M1[i,j] - M2[i,j];
end;

//procedure of matrix and number multiplication
procedure MoMAndN(M:matrix;size,number:Integer;var ResM:matrix);
var
  i,j:integer; //loop counters
begin
  for i := 1 to size do
  for j := 1 to size do
    ResM[i,j] := M[i,j] * number;
end;

//procedure of matrix output
procedure Output(size:Integer;M:matrix);
var
  i,j:integer; //loop counters
begin
  for i := 1 to size do
  begin
    for j := 1 to size do
      write(M[i,j]:6);
    Writeln;
  end;
  writeln('--------------------------------');

end;

Begin //body of the program
  Sum(A,B,n,C);
  Output(n,C);
  MoMAndN(c,n,3,c);
  Output(n,C);
  Subtr(A,B,n,D);
  Output(n,D);
  MoM(D,A,n,D);
  Output(n,D);
  Subtr(C,D,n,C);
  Output(n,C);

  Readln;
End.