Ответ:

program z;

var i,j,n:integer;

m:array[1..10,1..10] of integer;

begin

write('Введите n (n <= 10): ');

readln(n);

writeln('Массив:');

for i:= 1 to n do

begin

for j:= 1 to n do

begin

m[i,j]:=n+1-j;

write(m[i,j],' ')

end;

writeln

end

end.

Объяснение:

т.к. индексы массива изменяются от 1 до n, то для присваивания значения элементу используем формулу: m[i,j]:=n+1-j;

для присваивания значения элементам массива и вывода их на экран используем вложенные циклы со счётчиками