Помогите с массивами! Пожалуйста!!!!

87. const n=10; var a:array[1..n,1..n] of integer; i,j:integer; begin for i:=1 to n do  begin  for j:=1 to i-1 do a[i,j]:=0;  for j:=i to n do a[i,j]:=j-i+1;  end; for i:=1 to n do  begin  for j:=1 to n do write(a[i,j]:3);  writeln;  end; end.  Результат:   1  2  3  4  5  6  7  8  9 10   0  1  2  3  4  5  6  7  8  9   0  0  1  2  3  4  5  6  7  8   0  0  0  1  2  3  4  5  6  7   0  0  0  0  1  2  3  4  5  6   0  0  0  0  0  1  2  3  4  5   0  0  0  0  0  0  1  2  3  4   0  0  0  0  0  0  0  1  2  3   0  0  0  0  0  0  0  0  1  2   0  0  0  0  0  0  0  0  0  1 88. const n=10; var a:array[1..n,1..n] of integer; i,j:integer; begin for i:=1 to n do  begin  for j:=1 to n do a[i,j]:=0;  a[i,i]:=1; a[i,n-i+1]:=1;  end; for i:=1 to n do  begin  for j:=1 to n do write(a[i,j]:3);  writeln;  end; end.  Результат:   1  0  0  0  0  0  0  0  0  1   0  1  0  0  0  0  0  0  1  0   0  0  1  0  0  0  0  1  0  0   0  0  0  1  0  0  1  0  0  0   0  0  0  0  1  1  0  0  0  0   0  0  0  0  1  1  0  0  0  0   0  0  0  1  0  0  1  0  0  0   0  0  1  0  0  0  0  1  0  0   0  1  0  0  0  0  0  0  1  0   1  0  0  0  0  0  0  0  0  1