PascalTriangle(L):={
  local n, c;
  n:=L[0];
  c:=n+2;
  T:="\\begin{tabular}{*{"+c+"}{|c}|}
       \\hline \\backslashbox{$n$}{$k$} ";
  for(colonne:=0; colonne<=n; colonne:=colonne+1)
  {
          T:=T+" & \\cellcolor{Moccasin}"+colonne;
  }
  T:=T+"\\\\\\hline";
  for(ligne:=1; ligne<=n; ligne:=ligne+1)
  {
          for(colonne:=0; colonne<=c-1; colonne:=colonne+1)
          {
                  if(colonne==0)
                  then{T:=T+"\\cellcolor{Moccasin}"+ligne+"&"}
                  else
                  {
                          I:=factorial(ligne)/(factorial(colonne-1)*factorial(ligne-colonne+1));
                          if(colonne==c-1)
                          then{
                                  if(I==0)
                                  then{T:=T+"\\\\\\hline"}
                                  else{T:=T+latex(I)+"\\\\\\hline"}
                          }
                          else{
                                  if(I==0)
                                  then{T:=T+"&"}
                                  else{T:=T+latex(I)+"&"}
                          }
                  }
                 }
  }
  T:=T+"\\end{tabular}";
}
:;