program l812ch2;

type
  massiv = array [,] of integer;


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

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

procedure MultiplicationMatrix(var C: massiv; A, B: massiv; n: 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, k] * B[k, j];
end;

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

var
  A,C: massiv;
  x, y, sum: massiv;
  n, max, min, i, j: integer;

begin
  randomize;
  writeln('Enter n: ');
  readln(n);
  setlength(A, n + 1, n + 1);
  RandomArray(A, n);
  Setlength(x, 1, n + 1);
  Setlength(y, 1, n + 1);
  RandomVector(x, n);
  RandomVector(y, n);

  writeln('Your array: '); //vivod
  for i := 0 to n-1 do
  begin
    for j := 0 to n-1 do
      write(A[i, j], ' ');
    writeln;
  end;

  Writeln;

  WriteLn('Vector X: ');
  for i := 0 to 0 do
    for j := 0 to n-1 do
  begin
    Write(x[i,j], ' ');
  end;

  Writeln;
  Writeln;

  WriteLn('Vector Y: ');
  for i := 0 to 0 do
    for j := 0 to n-1 do
  begin
    Write(y[i,j], ' ');
  end;
  Writeln;

  SumMatrix(x,x,y,n+1);
  MultiplicationMatrix(C,A,x,n+1);

  writeln('C array: '); //vivod
  for i := 0 to n-1 do
  begin
    for j := 0 to n-1 do
      write(C[i, j], ' ');
    writeln;
  end;

end.