Contoh

uses wincrt;
var
tabel: array [1..3,1..2] of integer;
i,j : integer;
begin
clrscr;
tabel[1,1]:=1;
tabel[1,2]:=2;
tabel[2,1]:=3;
tabel[2,2]:=4;
tabel[3,1]:=5;
tabel[3,2]:=6;
for i := 1 to 3 do begin for j := 1 to 2 do begin writeln('elemen',i,',',j,'=', tabel [i,j]);
end;
end;
readln;
end.

uses wincrt;
var
bilangan : array [1..10] of integer;
begin
clrscr;
bilangan [1]:=3;
bilangan [2]:=5;
bilangan [3]:=10;
bilangan [4]:=30;
bilangan [4]:=23;
writeln ('nilai variabel bilangan ke 3:',bilangan [3]);
readln;
end.

uses wincrt;
var
Nama:array[1..10]of string[20];
NPM:array[1..10]of string[20];
Alamat:array[1..10]of string[20];
i,j : integer;
begin
clrscr;
write('Masukkan Jumlah Data Mahasiswa :');readln(j);
for i:=1 to j do
begin
writeln ('data ke-',i);
writeln ('Nama Mahasiswa:'); readln(Nama[i]);
writeln ('Masukkan NPM:'); readln(NPM[i]);
writeln ('Alamat:'); readln(Alamat[i]);
end;
clrscr;
writeln('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx');
writeln('  No       |      Nama Mahasiswa      |       NPM       |      Alamat       |');
writeln('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx');
for i:=1 to j do
begin
writeln(   i:1,        Nama[i]:20,                NPM[i]:25,         Alamat[i]:25      );
end;
writeln('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx');
readln;
end.