Program MAtrik identitas terbalik (PASCAL)

program MAtrik_identitas_terbalik;

uses
  WinCrt;
  var
  A,B,C:array[1..10,1..10] of integer;
  X,Y,Z,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.

kalau dieksekusi hasilnya seperti ini :

0 0 0 0 1
0 0 0 1 0
0 0 1 0 0
0 1 0 0 0
1 0 0 0 0