INPUTAN MATRIKS

program input_matriks;
uses wincrt;
var
tabel:array[1..6,1..6] of integer;
m,n,i,j:integer;
begin
write('Input baris: ');readln(m);
write('Input kolom: ');readln(n);
writeln('Matriks yang anda input berukuran: ',m, 'x' ,n);

for i:=1 to m do
begin
for j:=1 to n do
begin
write('Tabel',i,'.',j,' ');readln(tabel[i,j]);
end;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(tabel[i,j],' ');
writeln;
end;
end.