Сформировать квадратную матрицу порядка n по данному примеру - Pascal - Turbo Pascal

Формулировка задачи:

Доброго времени суток, помогите пожалуйста сделать задание: Сформировать квадратную матрицу порядка N по данному образцу:

1 1 1 … 1 1 1 1 0 0 … 0 0 1 1 0 0 … 0 0 1 … … … … … … … 1 0 0 … 0 0 1 1 1 1 … 1 1 1

Решение задачи: «Сформировать квадратную матрицу порядка n по данному примеру - Pascal»

Листинг программы

for i:=1 to n do
 begin
  for j:=1 to n do
   begin
     if(i in [1,n])or(j in [1,n]) then a[i,j]:=1
     else a[i,j]:=0;
    write(a[i,j]:2);
   end;
  writeln;
 end;

Объяснение кода листинга программы

Данный код на языке Turbo Pascal формирует квадратную матрицу порядка n. В цикле for i:=1 to n do выполняется цикл for j:=1 to n do. В каждой итерации внутреннего цикла проверяется условие if(i in [1,n])or(j in [1,n]). Если это условие истинно, то переменной a[i,j] присваивается значение 1, иначе - 0. Затем выполняется запись значения переменной a[i,j] в консоль с помощью функции write(a[i,j]:2). После этого выполняется команда writeln, которая завершает текущую строку. После окончания внутреннего цикла выполняется команда writeln;, которая завершает текущую строку. Таким образом, данный код формирует квадратную матрицу порядка n, где каждый элемент матрицы равен либо 1, либо 0, и записывает значения элементов в консоль по одному в каждой строке.