Alg do Pedra, Papel e Tesoura

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "semnome"
// Função :
// Autor :
// Data : 3/7/2010
// Seção de Declarações 
var
a: caractere
inicio
escreval ("Pedra, Papel ou Tesoura?")
leia (a)
se a="Pedra" entao
escreval ("Mamou, botei Papel")
senao
fimse
se a="Papel" entao
escreval ("Kkkk, botei Tesoura!")
senao
fimse
se a="Tesoura" entao
escreval ("Haha, botei Pedra!")
senao
fimse
// Seção de Comandos 
fimalgoritmo