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

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

{ Action d'affichage d'une position 2D            }

action afficher(p)
  donnees
    p : position2D
  Ecran.afficherln("[",p.x,",",p.y,"]")
fin action

{ Programme principal                             }

constante entier TAILLE <- 10

action principale()
  locales
    i : entier
    tpos : Tableau[TAILLE] de position2D
  pour i de 0 à TAILLE-1 faire
    afficher(tpos[i])
  fait
  Ecran.afficherln()
fin action