
L1=
L2=
!for i=1 to $n
a$i=!randint 1,26
b$i=!randint $[$(a$i)+1],  $[$(a$i)+4]
L1=!append item $(a$i) to $L1
L2=!append item $(b$i) to $L2
!next i

G=!exec pari n=$n; L1=[$L1]; L2=[$L2];\
G=matrix(n,n);\
for(i=1,n,for(j=i+1,n,G[i,j]= if(L2[j]>=L1[i] && L2[i]>=L1[j],1))); print(G+G~);
G=!trim $G
GM=!translate internal ; to $\
$ in $G
GM=!nonempty lines $GM
dem= <table align="center" border =1 bgcolor= "navajowhite"><tr align="center" >
!for i=1 to $n
dem=!append line <th> $(N$i)</th> to $dem
!next i
dem=$dem </tr><tr>
!for i=1 to $n
!!U=!line $i of $GM
!!H$i=!positionof item 1  in $U
dem= !append line <td>du $(a$i) au $(b$i)</td> to $dem
!next i

dem=!append line </tr></table> to $dem

etp=0
GC=!exec pari M=matrix($n,$n,i,j,0);print(M)
D=$G
GCM=!translate internal ; to $\
$ in $GC
DM=!translate internal ; to $\
$ in $D
