Получить квадратную матрицу порядка n: k 0 n-1 n n-2 n-1 n .... ..... .... 1 2 3...n Может кто знает как написать программу в Паскале?

Const n=6; var a:array[1..n,1..n] of integer; i,j:integer; begin for i:=1 to n do for j:=1 to i do a[i,j]:=n-i+j; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; end. Пример: 6 0 0 0 0 0 5 6 0 0 0 0 4 5 6 0 0 0 3 4 5 6 0 0 2 3 4 5 6 0 1 2 3 4 5 6