Сформировать двумерный массив по рисунку - Pascal

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

Ребятушки, помогите, пожалуйста. Уже 2й час сижу и никак не могу сформировать эти чертовы массивы. Я не могу уловить закономерности. Буду благодарен. Мне необходим только

и последние два

Решение задачи: «Сформировать двумерный массив по рисунку»

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

uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of longint;
    n,i,j:integer;
begin
clrscr;
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
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-1,j]+a[i,j-1];
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:7);
  writeln
 end;
readln
end.

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

Объявляется двумерный массив a размером nmax х nmax.
Задаются переменные n, i, j типа integer.
С помощью цикла repeat-until устанавливается размер матрицы n в диапазоне от 2 до nmax.
С помощью циклов for выводятся значения исходной матрицы a размером n на n.
С помощью циклов for происходит заполнение матрицы a по формуле a[i,j]=a[i-1,j]+a[i,j-1].
С помощью циклов for и write выводятся значения матрицы a размером n на n.
Завершает работу программы readln.