penggunaan array untuk mencari determinan

program determinan;
uses wincrt;

var
nama : array[1..3,1..3] of shortint;
a,b,c,def,x1,x2,x3,x4,x5,x6 : integer;

begin
for a:=1 to 3  do
begin
for b:=1 to 3 do
begin
write(‘Masukan angka’,a,’.’,b,’:’);readln(nama[a,b]);
end;
end;
x1:=(nama[1,1]*nama[2,2]*nama[3,3]);
x2:= (nama[1,2]*nama[2,3]*nama[3,1]);
x3:=(nama[1,3]*nama[2,1]*nama[3,2]);
x4:= (nama[1,3]*nama[2,2]*nama[3,1]);
x5:= (nama[1,1]*nama[2,3]*nama[3,2]);
x6:=  (nama[1,2]*nama[2,1]*nama[3,3]);
def:=  x1+x2+x3-x4-x5-x6;
writeln(‘Nama  :’,def);
end.

——————————————————————————–
program determinan2;
uses wincrt;

var
nama : array[1..2,1..2] of shortint;
a,b,def : integer;

begin
for a:=1 to 2  do
begin
for b:=1 to 2 do
begin
write(‘Masukan angka ‘,a,’.’,b,’ :’);readln(nama[a,b]);
end;
end;
def:=(nama[1,1]*nama[2,2])-(nama[1,2]*nama[2,1]);
writeln(‘Nama  :’,def);
end.