{ Declaration d'un tableau de variables           }
{ de type agrege position en deux dimensions      }

structure position2D
  reel x <- 0.0
  reel y <- 0.0
fin structure

{ Programme principal                             }

constante entier TAILLE <- 3

action principale()
  entier i
  position2D [TAILLE] tpos
  pour i de 0 à TAILLE-1 faire
    afficherln(tpos[i].x," ",tpos[i].y)
  fait
  Ecran.sautDeLigne()
  pour i de 0 à TAILLE-1 faire
    tpos[i].x = Math.random()
    tpos[i].y = Math.random()
  fait
  pour i de 0 à TAILLE-1 faire
    afficher(tpos[i].x," ",tpos[i].y)
  fait
fin action