заполнить произвольный массив размером N x N (N <10) по следующему правилу:
10000
02000
00300
00020
00001

var  a: array[1..10, 1..10] of integer;  i, j, n: integer;  begin  write('Enter n: '); readln(n);  for i := 1 to n do  begin    for j := 1 to n do    begin      if i <> j then        a[i, j] := 0      else if i <= N div 2 then        a[i, j] := i      else        a[i, j] := n - i + 1;      write(a[i, j], ' ');    end;    writeln();  end;end.