Program Invers dan Determinan pada Matriks Berordo 2x2

program invers_determinan;
uses wincrt;
var inv,a,b,c: array[1..10,1..10] of real;
i,j,k1,k2,b1,b2,sum,r:integer;
det,deter:real;
begin
writeln ('program determinan & invers matriks');
write('banyak baris Matrik A = ');readln(b1);
write('banyak kolom Matrik A = ');readln(k1);
if (b1=2)and (k1=2) then
begin
for i:=1 to b1 do
for j:=1 to k1 do
readln(a[i,j]);
writeln;
for i:=1 to b2 do
for j:=1 to k2 do
readln(b[i,j]);
writeln;
writeln('Matrik A adalah');
for i:=1 to b1 do
begin
for j:=1 to k1 do
write(a[i,j]:8:3,' ');
writeln;
end;
writeln;
det:= (a[1,1]*a[2,2]-a[1,2]*a[2,1]);
writeln('determinan matriks A adalah');
writeln (det:8:2);
writeln;
writeln ('invers matriks A adalah');
for i:=b1 downto 1 do
begin
deter:=1/det;
for j:=k1 downto 1 do
begin b[1,2]:= -a[1,2]*deter; b[1,1]:=a[1,1]*deter;b[2,1]:=-a[2,1]*deter;b[2,2]:=a[2,2]*deter;
write (b[i,j]:8:1);end;
writeln;end;
end
else
writeln ('maaf program hanya bisa membaca matriks berordo 2x2');
end.

Hasil: