Сформировать квадратную матрицу порядка n по заданному образцу - Pascal (80725)

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

Сформировать квадратную матрицу порядка 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 по заданному образцу»

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

const n=10;
var a:array[1..n,1..n]of byte;
    i,j:byte;
begin
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
end.

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

Объявляется константа n со значением 10.
Объявляется переменная a - двумерный массив размером n x n, содержащий значения типа byte, представляющие элементы матрицы.
Объявляются переменные i и j типа byte для использования в циклах.
Начинается выполнение основной части программы (begin).
Запускается цикл for, в котором переменная i принимает значения от 1 до n (10).
Внутри цикла for запускается ещё один цикл for, в котором переменная j принимает значения от 1 до n (10).
Внутри вложенного цикла for проверяется условие: если i находится в диапазоне [1, n] или j находится в диапазоне [1, n], то значение элемента массива a с индексами i,j устанавливается равным 1; в противном случае значение устанавливается как 0.
Выводится значение элемента массива a с использованием операции write с выравниванием по 2 символа.
Завершается вложенный цикл for, переходит на новую строку.
Завершается внешний цикл for.
Завершается выполнение программы (end).