Заполнить массив по заданной схеме - Free Pascal

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

Двумерный массив: 1 1 1 1 1 1 1 2 3 4 5 6 1 3 6 10 15 21 1 4 10 20 25 56 1 5 15 35 70 126 1 6 21 56 126 252

Решение задачи: «Заполнить массив по заданной схеме»

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

const n=6;
var a:array[1..n,1..n] of integer;
    i,j:integer;
begin
for i:=1 to n do
 begin
  a[1,i]:=1;
  a[i,1]:=1;
 end;
for i:=2 to n do
for j:=2 to n do
a[i,j]:=a[i,j-1]+a[i-1,j];
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

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

Объявлены константа n равная 6 и переменные a, i и j типа integer.
Заполнение основной части массива a по определенной схеме:
- Два вложенных цикла for для прохода по всем элементам массива a начиная со второго элемента (исключая верхнюю левую ячейку).
- Значение каждого элемента a[i,j] вычисляется как сумма значений элементов a[i,j-1] и a[i-1,j].
Вывод значений массива a на экран:
- Два вложенных цикла for для прохода по всем элементам массива a.
- В каждой итерации внутреннего цикла значение элемента a[i,j] выводится на экран с помощью функции write.
- После каждой итерации внешнего цикла происходит переход на новую строку с помощью функции writeln.
Ввод данных с помощью функции readln в конце программы.