algoritmo "escolha caso"
var
N1,N2,OP,resultado:real
inicio
escreval("digite o numero 1")
leia(N1)
escreval("digite o numero 2")
leia(N2)
escreval("digite 1 para somar")
escreval("digite 2 para subtrair")
escreval("digite 3 para multiplicar")
escreval("digite 4 para dividir")
leia(OP)
escolha(OP)
caso 1
escreval("o resultado é",N1+N2)
caso 2
escreval("o resultado é",N1-N2)
caso 3
escreval("o resultado é",N1*N2)
caso 4
escreval("o resultado é",N1/N2)
outrocaso
escreval("opçao errada")
fimescolha
fimalgoritmo