// On définit les unités de longueurs.
unitsize(1cm,1cm);

// Définition d'une suite de points
pair [] pA;
pA[0]=( 0, 0);
pA[1]=( 1, 0);
pA[2]=( 1, 1);
pA[3]=( 0, 2);
pA[4]=(-2, 2);
pA[5]=(-4, 0);
pA[6]=(-4,-4);

for (int i=1; i<=6; ++i) { // début d'une boucle
 dot(pA[i],blue);          //   on affiche un point
 draw(pA[0]--pA[i],green); //   on trace un segment
}                          // fin de la boucle
dot(pA[0]);