Сформировать квадратную матрицу порядка n по заданному образцу решения 1 0 0 .. 0 0 11 1 0 ... 0 1 11 1 1 ... 1 1 1...................1 1 0 ... 0 1 1 1 0 0 ...0 0 1

const  n = 10;var  matrix : array [1..n] of array [1..n] of integer;  i, j, max : integer;begin  {формирование матрицы}  for j := 1 to n do  begin    if j <= Trunc(n / 2) then       {находим последний индекс для вставки 1}      max := j           else      max := n - j + 1;    for i := 1 to max do                          {заполняем линию единицами}    begin      matrix[j][i] := 1;      matrix[j][n - i + 1] := 1;    end;  end;  {вывод матрицы (если не нужно, удалите код)}  for j := 1 to n do  begin    for i := 1 to n do      write(matrix[j][i], );    writeln;  end;      end.