Задание 73, как можно быстрее

program z;

var m: array[1..99,1..99] of integer;

i,j,n: integer;

begin

read(n);

for i:=1 to n do

begin

for j:=1 to n do

begin

if i+j-1=n then m[i,j]:=n+1-j else m[i,j]:=0;

write(m[i,j]:3)

end;

writeln

end

end.

Объяснение:

воспользовавшись формулой побочной диагонали в матрице (i+j-1=n) зададим значения элементов применив полный условный оператор