var    a:array[1..10,1..10] of longint;    n,i,j:longint;begin    readln(n);    for i:=1 to n do    begin        a[i,1]:=1;a[i,i]:=1;        for j:=2 to i-1 do            a[i,j]:=a[i-1,j-1]+a[i-1,j];    end;    for i:=1 to n do    begin        write('':(n-i)*3);        for j:=1 to i do write(a[i,j]:6);        writeln;    end;end.