Даю 100 баллов, помогите, пожалуйста. Только не из интернета​

Question

Даю 100 баллов, помогите, пожалуйста. Только не из интернета​

---

Answer 1

Ответ:

PascalABC

Объяснение:

program massiv;

var

  matr: array[,] of integer;  

  m, n: integer;

begin

 Write('Введите размер матрицы M x N через запятую: ');

 ReadLn(m, n);

 SetLength(matr, m, n);

 for var i := 0 to m - 1 do

 begin

   for var j := 0 to n - 1 do

   begin

     matr[i, j] := i + j + 2;

     Write(matr[i, j]:4);

   end;

   WriteLn;

 end;

end.

Answer 2

// PascalABC.NET

begin

 var (m, n) := ReadInteger2('Введи m и n:');

 var a := MatrGen(m, n, (i, j) -> i + j + 2);

 a.Println

end.

---