Tugas 2

program MAtrik_identitas_terbalik;

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