program l812ch2;

type
  massiv = array [,] of integer;

procedure RandomMatrix(var AnyMatrix: massiv; n, m: integer);
var i, j: integer;
  begin
    for i:= 0 to n-1 do
      for j:= 0 to m-1 do
        AnyMatrix[i, j] := Random(10);
  end;

procedure SumMatrix(var C: massiv; A, B: massiv; n, m: integer);
var i, j: integer;
  begin
    for i:= 0 to n-1 do
      for j:= 0 to m-1 do
        C[i, j] := A[i, j] + B[i, j];
  end;

procedure MultiplicationMatrix(var C: massiv; A, B: massiv; n, m: integer);
var i, j, k: integer;
begin
    for i:= 0 to n-1 do
      for j:= 0 to n-1 do
        for  k:= 0 to n-1 do
          C[i, j] := A[i, j] * B[m-1, k];
end;


procedure WriteMatrix(A: massiv; n, m: integer);
var i, j: integer;
begin
  for i:= 0 to n-1 do
    begin
    for j:= 0 to m-1 do
      write(A[i,j],'  ');
      writeln;
    end;
end;

var n, m: integer;
    x, y, A: massiv;
begin
  Randomize;
  m := 1;
  writeln('Enter n: ');
  read(n);
  Writeln;

  writeln('Matrix A: '); //vivod matrix
  SetLength(A, n, n);
  RandomMatrix(A, n, n);
  WriteMatrix(A, n, n);
  writeln;

  writeln('Vector X: ');  //vivod vector x
  SetLength(x, m, n);
  RandomMatrix(x, m, n);
  WriteMatrix(x, m, n);
  writeln;

  writeln('Vector Y: '); //vivod vector y
  SetLength(y, m, n);
  RandomMatrix(y, m, n);
  WriteMatrix(y, m, n);
  writeln;

  SumMatrix(x,x,y,m,n); //summa vectorov

  writeln('Sum X+Y: '); //vivod summi
  WriteMatrix(x, m, n);
  writeln;

  MultiplicationMatrix(A, A, x, n, m); //umnozhenie

  writeln('Mult A(X+Y): '); //vivod proizvedenia
  WriteMatrix(A, n, n);
  writeln;
end.