Função somar

Algoritmo "calculadora 2"

Var n1, n2, op:real

Inicio

funcao pedirNumero:real
var
   n1: real
inicio
   escreval("Escreva um termo:")
   leia(n1)
   retorne n1
fimfuncao

funcao somar(a,b:real):real
inicio
   retorne a+b
fimfuncao

funcao multiplicar(a,b:real):real
inicio
   retorne a*b
fimfuncao

escreval("1 - Somar")
escreval("2 - Multiplicar")
leia(op)
escolha op
caso 1
   escreval(somar(pedirNumero,pedirNumero))
caso 2
   escreval(multiplicar(pedirNumero,pedirNumero))
outrocaso
   escreva("Inválido")
fimescolha
Fimalgoritmo