Программа  ввода   элементов   целочисленной матрицы X  максимального размера  20×20 элементов — Pascal(Паскаль)

Program Pr34 (Input, Output); 
Var 
X : Array [1..20, 1..20] Of Integer; 
M, N: Integer; 
i, j: Integer;
 
Begin
 
WriteLn ('PASCAL: Ввод элементов прямоугольной таблицы.');
Write ('Введите число строк: '); 
ReadLn (N); 
Write ('Введите число столбцов: ');
ReadLn (M);
 
WriteLn ('Введите поочередно элементы таблицы:'); 
For i := 1 To N Do
For j := 1 To M Do 
Begin
Write ('X[', i, ',', j, '] = ');
ReadLn(X[i,j]);
End;
 
WriteLn ('Ввод закончен.'); 
 
ReadLn;
End.