{ Creation d'une chaine de caracteres         }
{ a partir d'un tableau de caracteres         }

constante entier N <- 5

action principale()
  Locales
    s : chaine
    t : Tableau [N] de caractere
    i : entier
  s <- ""
  t[0] <- 'A'
  t[1] <- 'a'
  t[2] <- '.'
  t[3] <- 'z'
  t[4] <- 'Z'
  pour i de 0 à N-1 faire
    s <- s+t[i]
  fait
  Ecran.afficherln(N," : ",s)
fin action