Создать массив размерностью n×n элементов и заполнить его по образцу, например для матрицы 6×6. С процедурами - Pascal

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

Создать массив размерностью n×n элементов и заполнить его по образцу, например для матрицы 6×6. С процедурами. Заранее большое спасибо. 0 1 0 0 1 0 1 1 1 1 1 1 0 1 0 0 1 0 1 1 1 1 1 1 0 1 0 0 1 0 1 1 1 1 1 1

Решение задачи: «Создать массив размерностью n×n элементов и заполнить его по образцу, например для матрицы 6×6. С процедурами»

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

program pr;
 
var
  i, n, j: integer;
  a: array [1..100, 1..100] of integer;
 
begin
  writeln('Введите размер матрицы');
  readln(n);
  for i := 1 to n do
    for j := 1 to n do
      if (i mod 2 = 0) then
      begin
        a[i, j] := 1;
      end
      else  
      begin
        a[i, 2] := 1;
        a[i, n - 1] := 1;
      end;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:2);
    writeln;
  end;
end.

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

Объявление программы:
- program pr;
Объявление переменных:
- i, n, j - целочисленные переменные;
- a - двумерный массив целых чисел размером 100x100.
Ввод размера матрицы:
- Вывод сообщения Введите размер матрицы;
- Считывание значения для переменной n.
Заполнение матрицы по образцу:
- Вложенный цикл для прохода по каждому элементу матрицы:
  - В зависимости от четности номера строки (переменная i):
  - Если i четное число, то значение элемента a[i, j] устанавливается равным 1;
  - Если i нечетное число, то значения элементов a[i, 2] и a[i, n - 1] устанавливаются равными 1.
Вывод заполненной матрицы:
- Два цикла для прохода по каждому элементу матрицы и вывод их значений с форматированным отображением;
- Переход на новую строку после завершения прохода по всем элементам строки.
Конец программы:
- end. - окончание программы.