algoritmo "semnome"
// Função :
// Autor :
// Data : 19/05/2012
// Seção de Declarações
var
pato,valorfim:inteiro
inicio
escreval("Quantos patos a mamãe patinho tinha?")
leia(pato)
valorfim <- pato
enquanto (pato<>0) faca
se(pato>1) entao
escreval("====================================")
escreval(pato," patinhos foram passear")
escreval("além das montanhas, para brincar.")
escreval("A mamãe gritou: quá, quá, quá, quá")
pato <- pato-1
escreval("mas só ",pato," patinho(s) voltaram(ou) de lá.")
fimse
se(pato=1) entao
escreval("====================================")
escreval(pato," patinho foi passear")
escreval("além das montanhas, para brincar.")
escreval("A mamãe gritou: quá, quá, quá, quá")
pato <- pato-1
escreval("mas nenhum patinho voltou de lá.")
fimse
se(pato=0) entao
escreval("====================================")
escreval("A mamãe patinho foi procurar")
escreval("Além das montanhas")
escreval("Na beira do mar")
escreval("A mamãe gritou: quá, quá, quá, quá")
escreval("E os ",valorfim," patinhos voltaram de lá")
fimse
fimenquanto
fimalgoritmo