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