algoritmo "ConversorDeTemperatura"

var
  n:inteiro
  resp:real
  op:caracter

inicio
  escreval("1 - Converter de C�� para F")
  escreval("2 - Converter de F para C��")
  leia(op)
  escolha op
    caso "1"
        escreval("Digite o valor a ser convertido.")
        leia(n)
        resp <- (n * 1.8) + 32
        escreval(n,"��C equivale a ",resp,"F.")
    caso "2"
        escreval("Digite o valor a ser convertido.")
        leia(n)
        resp <- (n-32) / 1.8
        escreval(n,"F equivale a ",resp,"��C.")
  fimescolha
fimalgoritmo