Сгенерировать матрицу вида: - PascalABC.NET

Помогите, пожалуйста! Сгенерировать матрицу вида:

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

const n = 4;
begin
  var a := MatrGen(n, n, (i, j) -> j >= i ? n - i : 0).Println;
end.

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

В коде объявлена константа n со значением 4.
Затем вызывается функция MatrGen, которая принимает три аргумента: n, n и (i, j) -> j >= i ? n - i : 0.
Внутри функции MatrGen создается матрица a размером n на n.
Далее происходит заполнение матрицы a с помощью выражения (i, j) -> j >= i ? n - i : 0.
После заполнения матрицы a вызывается функция Println, которая выводит матрицу на экран.
В конце кода вызывается функция MatrGen и передаются ей аргументы n, n и (i, j) -> j >= i ? n - i : 0.
Значение переменной a присваивается результату вызова функции MatrGen.
Значение переменной a выводится на экран с помощью функции Println.