Program Matrixxx;
type Matrice=array[1..24, 1..24] of integer;
var M: Matrice;
l, n, i, j: integer;
begin
write ('n='); readln (n);
for i:=1 to n do
for j:=1 to n do
if i=j then M[i, j]:=0
else M[i, j]:=n-j+1;
for i:=1 to n do
begin
for j:=1 to n do
write (M[i, j],' ');
writeln;
end;
readln;
end.