algoritmo()
{
inteiro Num;
inteiro Den;
real Soma;
inteiro NumTermos;
Soma := 1;
Num := 2;
Den := 3;
NumTermos := 1;
repita
{
Soma := Soma + (Num/Den) - ((Num+1)/(Den+1));
NumTermos := NumTermos + 2;
Num := Num + 2;
Den := Den + 2;
} ( NumTermos > 49 );
escreva ( "a soma e: ", soma );
}