*! Amadou Bassirou DIALLO, Cerdi, Univ. of Auvergne (France)

prog pascal

syntax [, n(real 5)]
loc k = `n'-1
di _n
di in y comb(1,0)
di _n
forv i = 1 / `n' {
   forv j = 0 /`k' {
      if `j'< `i' {
         loc a = comb(`i',`j')
         loc li `li' `a'
      }
   }
   loc a = comb(`i',`i')
   loc li `li' `a'
   di in y "`li'"
   loc li
   di _n
}

end