program arraydata;
uses wincrt;
{ Langkah[1].deklarasi tipe dari array }
type
data=array[1..10,1..10]of integer;
{ Langkah[2].deklarasikan variabel apa saja yg digunakan }
var
i,j:integer;
tabel:data;
{ Langkah[3].input data }
begin
clrscr;
writeln('===== PROGRAM MATRIK SEDERHANA =====');
writeln('Matrik berordo(ukuran)10 baris dan 10 kolom');
writeln;
tabel[1,1]:=1;
tabel[1,2]:=2;
tabel[2,1]:=2;
tabel[2,2]:=2;
tabel[2,3]:=3;
tabel[3,1]:=3;
tabel[3,2]:=2;
tabel[3,3]:=3;
{ Langkah[4].menampilkan matrik }
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(tabel[i,j]:3);
writeln;
end;
readln;
donewincrt;
end.