var a:array[-1..20,-1..20]of integer;

    n,i,j,k:integer;
begin

write('Количество строк n: ');
readln(n);

a[1,1]:=1;a[2,1]:=1;a[2,2]:=1;
for i:=3 to n do
   begin
    a[i,1]:=1;
    for j:=1 to i+1 do
       begin
        if j=i then a[i,j]:=1
        else a[i,j]:=a[i-1,j-1]+a[i-1,j];
       end;
  end;

for i:=1 to n do
   begin
    for j:=1 to i do
    write(a[i,j],' ');
    writeln;
   end;

end.