algoritmo ()
{
inteiro primeiro;
inteiro ultimo;
inteiro ValorAtual;
inteiro ValorAnterior;
inteiro SomaAcumulada;
inteiro SomaAtual;
primeiro := 1;
ultimo := 10;
ValorAnterior := primeiro;
ValorAtual := primeiro;
SomaAcumulada := 0;
SomaAtual := 0;
repita
{
SomaAtual := SomaAcumulada + ValorAtual;
SomaAcumulada := SomaAtual;
ValorAnterior := ValorAtual;
ValorAtual := ValorAnterior + 1;
} ( ValorAtual > ultimo );
escreva ( "o valor da soma e ", SomaAtual );
}