Kebalikan Matrik Identitas

program matrik;

uses wincrt;

var

   A,B,C:Array[1..10,1..10] of integer;

   X,Y,Kol,Bar:integer;

begin

for x:=1 to 5 do

begin

for y:=1 to 5 do

begin

          C[X,Y]:=0;

          if X+Y=6 then C[X,Y]:=1;

          write(C[X,Y]:4);

     end;

     writeln;

end;

end.