contoh_2dimensi

program _2dimensi;
uses crt;

type
    matriks= array [1..3, 1..3] of integer;
var
    a: matriks;
    i, j, m, n: shortint;

begin
    clrscr;
    write('Masukkan banyak baris: ');
    readln(m);
    write('Masukkan banyak kolom: ');
    readln(n);

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