Массив: Заполнение матрицы по заданном принципу - Pascal

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

Очень прошу, помогите, кто чем сможет) буду очень благодарна... Написать программу и если можно, без функций и процедур. Задание: Заполнить матрицу целыми числами по образцу:

Решение задачи: «Массив: Заполнение матрицы по заданном принципу»

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

const n=10;
var a:array[1..n,1..n] of integer;
    i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i=1 then a[i,j]:=j
    else if (j=n)and(i>1) then a[i,j]:=n+i-1
    else if (i=n)and(j<n) then a[i,j]:=3*n-j-1
    else if (j=1)and(i<n) then a[i,j]:=4*n-i-2
    else a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
end.

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

В данном коде объявляется переменная n, которая содержит значение 10. Затем создается массив a типа array[1..n,1..n] of integer, где каждый элемент массива имеет тип integer. Далее объявляются две переменные i и j, которые также имеют тип integer. Затем в цикле for i:=1 до n do происходит заполнение массива a. Внутри этого цикла также используется вложенный цикл for j:=1 до n do, который выполняется для каждого элемента массива. Внутри вложенного цикла проверяется условие i=1. Если это условие выполняется, то в соответствующий элемент массива a[i,j] записывается значение j. Далее проверяется условие (j=n)and(i>1). Если это условие выполняется, то в элемент массива a[i,j] записывается значение n+i-1. После этого проверяется условие (i=n)and(j<n). Если это условие выполняется, то в элемент массива a[i,j] записывается значение 3n-j-1. Наконец, проверяется условие (j=1)and(i<n). Если это условие выполняется, то в элемент массива a[i,j] записывается значение 4n-i-2. Если ни одно из условий не выполняется, то в элемент массива a[i,j] записывается значение 0. После завершения внутреннего цикла for j:=1 до n do происходит запись значения элемента массива a[i,j] в переменную write(a[i,j]:4), которая выводит значение элемента на экран. Затем происходит вывод строки end.. Таким образом, данный код выполняет заполнение массива a по заданному принципу, где каждый элемент массива имеет определенное значение в зависимости от индексов i и j.