sum ( sum( X[j]^2, j=1..i) ,i =1..n )

// algorithme de calcule de la somme suivante: sum ( sum( X[j]^2, j=1..i) ,i =1..n )

variable s,i,j,X,d;
ecrire("saisir d: ");
lire( d );
pour j de 1 à d faire
    ecrire("saisir j eme valeur de X: ");
	lire( X[j] );
fin pour
s <- 0;
pour i de 1 à d faire
    pour j de 1 à i faire
        s <- s + X[j]*X[j];
    fin pour
fin pour
ecrire("la somme total est: ",s);