Получить треугольник паскаля - Turbo Pascal

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

Получить треугольник паскаля (биноминальные коэффициенты) 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 1 6 15 20 15 6 1 Помогите пожалуйста, мне нужен именно этот вид треугольника, пользователь вводит число строк

Решение задачи: «Получить треугольник паскаля»

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

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

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

В начале программы объявляются переменные: — a — массив размером 0..100,0..100 типа integer; — i, j, n — целочисленные переменные.
Затем программа запрашивает значение переменной n и выводит его на экран.
Значение первого элемента массива a инициализируется единицей, так как это первый элемент треугольника Паскаля.
Далее, с помощью двух вложенных циклов, происходит заполнение остальных элементов массива a. Первый цикл идет от i=2 до n, второй — от j=1 до i. Значение каждого элемента массива a равно сумме соответствующих элементов массива a (i-1, j-1) и (i-1, j).
Затем, с помощью двух вложенных циклов, происходит вывод значений элементов массива a на экран. Первый цикл идет от i=1 до n, второй — от j=1 до i.
В конце программы заканчивается работа с циклом и выполняется выход из программы.