Составит программу формирования двумерного массива n*n по следующему правилу: элементы главной диагонали приравнять 1, ниже главной диагонали – 0, а выше сумме индексов — Pascal(Паскаль)

Program VR;
Var i,j,n: integer;
   a:array[1..100,1..100] of byte;
Begin
  writeln('Vvei n');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i=j then a[i,j]:=i;
      if j>i then a[i,j]:=i+j;
      if i>j then a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
End.