Целочисленный массив

[gulbidin222]

определить значения целочисленного массива А[6][6] следущим образом(здесь ввод массива не требуется)
А=
1 2 3 4 5 6
0 1 2 3 4 5
0 0 1 2 3 4
0 0 0 1 2 3
0 0 0 0 1 2
0 0 0 0 0 1

[Serge_Bliznykov]

for i:=1 to N do
 for j:=1 to N do
   if i>j then A[i,j] := 0
   else A[i,j] := j - i + 1;

[gulbidin222]

а библиотеки какие??

[Stilet]

Да никаких...
Результат через writeln выводи.