Program Array 3

program array_09;
uses wincrt;
var larik:array [1..100,1..100] of integer;
i,j,m,n:integer;

begin
write('masukkan jumlah baris = ');readln(m);
write('masukkan jumlah kolom = ');readln(n);
clrscr;
writeln('nilai komponen matriks = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(larik[i,j]);
end;
writeln;
end;
clrscr;
writeln('Diperoleh matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to n do
begin
write(larik[i,j]:9);
end;
writeln;
end;
end.