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

var
   a:array[1..100,1..100] of integer;
   i,j,n:integer;
begin
 write('Введите порядок матрицы=');
 readln(n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if (i<=j) and (i+j<=n+1) or (i>=j) and (i+j>=n+1) then a[i,j]:=1; {заполнение единицами, предполагается, что массив обнулен}
     write(a[i,j],' ');
    end;
   writeln;
  end;
 readln
end.