// Liste X des 500 premiers entiers, leur somme S.
X=[];// La liste est vide au début. On va la remplir.
S=0;
for i=1:500
    X=[X,i];
    S=S+i;
end;
// Somme T des carrés des 500 premiers entiers.
T=0;
for i=1:500
    T=T+i^2;
end;
//Voici le même algorithme avec des commandes plus sophistiquées :
Xbis=1:500;
Sbis=sum(X);
Ybis=Xbis.^2;// Si A est un tableau, A.^2 est le tableau des carrés.
Tbis=sum(Ybis);
// Si on veut seulement les deux sommes, on tapera
Ster=sum(1:500);
Tter=sum([1:500]^2);
// Affichage
afficher('S= '+string(S));
afficher('Sbis= '+string(Sbis));
afficher('Ster= '+string(Ster));
afficher('T= '+string(T));
afficher('Tbis= '+string(Tbis));
afficher('Tter= '+string(Tter));