Program Array2D;
uses crt;
var row, column : integer; i, j : integer; A : array[1..100,1..100] of integer;
begin
Write('Row = ');ReadLn(row);
Write('Column = ');ReadLn(column); for i:= 1 to row do begin for j := 1 to column do begin WriteLn('row, column : ', i,',',j); readln(A[i,j]); end; end; writeln(' Input Result '); for i:= 1 to row do begin for j := 1 to column do write( A[i,j]:5 ); writeln(); end;
end.