Pascal ABC - Сформировать квадратную матрицу порядка n ( где n

Хм... советами, означает, воспользовались, а позже отметили, что это Вас обидело? Ну, ну... А я-то по простоте искренней написал программку, как Для вас надобно, уже было вставлять ответ начал - и на тебе! Ну что же, это как раз и именуется "сам для себя злобный буратино". Живите с этим.

Var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doif ilt;j then a[i,j]:=0else a[i,j]:=n-i+j;
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.