Ввод двумерного массива с клавиатуры и вывод его на экран в виде матрицы Pascal ABC

Объяснение:

program TwoDimensionalArray;

var

   rows, cols, i, j: integer;

   arr: array [1..9999, 1..9999] of integer;

begin

   writeln('Введите кол-во строк:'); readln(rows);

   writeln('Введите кол-во столбцов:'); readln(cols);

   writeln('Вводите элементы матрицы: ');

   for i := 1 to rows do

       for j := 1 to cols do  

           readln(arr[i, j]);

   for i := 1 to rows do begin

       for j := 1 to cols do

           write(arr[i, j], ' ');

       writeln

   end;    

end.