dessincomb(n):={ local j,k,L; L:=NULL; pour j de 1 jusque n faire pour k de j jusque n faire si irem(comb(k,j),2) alors L:=L,point(k,j,affichage=point_point); fsi; fpour; fpour; retourne L; }:;