algoritmo "semnome"
// Função : Serie para verificação de crescimento da população
// Autor :
// Data : 27/4/2011
// Seção de Declarações
var
x, y, pais, popux:real
ano, tempo:inteiro
inicio
escreval("Digite o ano :")
leia(ano)
tempo<-ano
escreval("Digite a populacao do pais y :")
leia(pais)
popux<-pais * 2
enquanto popux > pais faca
pais <- pais +(pais * 0.06)
popux <- popux +(popux * 0.03)
ano<-ano + 1
fimenquanto
escreval("O ano que a populacao do pais y sera maior que a populacao x e :",ano)
escreval("Populacao do pais y no ano :",pais)
escreval("Populacao do pais x no ano :",popux)
fimalgoritmo