program determinan_invers;
uses wincrt;
var
x,y:array [1..50,1..50] of integer;
i,j,det:integer;
begin
writeln('Masukkan nilai matriks ordo 2 x 2 !');
for i:=1 to 2 do
for j:=1 to 2 do
begin
write('nilai x[',i,',',j,'] = ');readln(x[i,j]);
end;
writeln;
writeln('Bentuk matriks nya');
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(x[i,j]:5);
writeln;
end;
det:=x[1,1]*x[2,2]-x[1,2]*x[2,1];
writeln;
writeln('Determinan matriks = ',det);
y[1,1]:=x[2,2];
y[1,2]:=-x[2,1];
y[2,1]:=-x[1,2];
y[2,2]:=x[1,1];
writeln;
writeln('Invers matriks nya');
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(y[i,j]/det:8:2);
writeln;
end;
end.
