Нужно составить программу в паскале.

создать матрицу n-го порядка, вида:

program raf105;

const

 n = 10;

var

 matrix: array[1..n,1..n] of integer;

begin

 for var i:=1 to n do

 begin

   for var j:=1 to n do

   begin

     if j = n-i+1 then

       matrix[i,j]:= i

     else

       matrix[i,j]:= 0;

     write(matrix[i,j]:3,' ');

   end;

   writeln;

 end;

end.

begin

 var m := ReadInteger();

 var a := MatrGen(m, m, (i, j)-> Ord(i + j = m - 1) * (i + 1));

 a.Println;

end.

Объяснение: