PROGRAMME Triangle_droit
VAR
    i, j,  n: ENTIER
    s <- "" : CHAINE
DEBUT
    ECRIRE("entrer un entier ")
    n <- LIRE()
    POUR i ALLANT DE 1 A n AU PAS DE 1
    FAIRE
         s <- ""
        POUR j ALLANT DE 1 A i AU PAS DE 1
        FAIRE
            s <- s + "*"
        FINPOUR
        ECRIRE(s)
    FINPOUR
FIN