Заполнить массив размерностью 6*6 по правилу - PascalABC.NET

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

заполнить массив размерностью 6*6 по правилу: 1 1 1 1 1 1 1 2 3 4 5 6 1 3 10 15 21 1 4 10 20 35 56 и т.д.

Решение задачи: «Заполнить массив размерностью 6*6 по правилу»

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

const n=6;
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)or(j=1) then a[i,j]:=1
    else a[i,j]:=a[i-1,j]+a[i,j-1];
    write(a[i,j]:4);
   end;
  writeln;
 end;
end.

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

Объявлены константа n равная 6 и переменная a типа массив размерности n*n (6*6) и типа integer (целое число).
Объявлены две переменные i и j типа integer (целое число).
В первой вложенной циклу for i:=1 to n do происходит итерация по всем элементам первого измерения массива a.
Внутри первой вложенной циклу for j:=1 to n do происходит итерация по всем элементам второго измерения массива a.
Условие if(i=1)or(j=1) проверяет, является ли элемент в позиции (i,j) элементом главной диагонали (по условию заполняются элементы главной диагонали и элементы, расположенные над ней).
Если условие истинно, то в элемент a[i,j] записывается число 1.
Если условие ложно, то в элемент a[i,j] записывается сумма элементов a[i-1,j] и a[i,j-1].
С помощью функции write(a[i,j]:4) в консоль записывается значение элемента a[i,j] в формате 4-х значного числа.
В конце каждой итерации внутреннего цикла происходит вывод значения элемента массива.
В конце внешнего цикла происходит вывод символа новой строки writeln;.
В конце программы происходит завершающий вывод символа новой строки writeln;.