array pascal
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.