Membuat array - matriks dengan Pascal

Program ini merupakan array 2 dimensi yang digunakan untuk menginput nilai matrik. Dengan nilai indeks batas x dan y adalah 1..5 (1-5). 

uses crt;

var

matrix : array [1..5,1..5] of integer;

e,s,p,r : integer;

begin

     clrscr;

     write ('e : ');

     read (e);

     write ('s : ');

     read (s);

     writeln;

     for p := 1 to e do

begin

     for r := 1 to s  do

     begin

     write ('Masukkan [',p:3,r:3,']:');

     readln (matrix[p,r]);

     writeln;

     end;

end;

writeln;

for p := 1 to e do begin

for r := 1 to s do begin

write (matrix[p,r]:6);

end;

writeln;

end;

readln;

end.

Jadi,outputnya kya begini :