Minha Calculadora

var
valor1, valor2,resultado : real
texo, act : caractere
resultado2 : inteiro


// Seção de Comandos
escreval ("________________________________________________________")
escreval ("Calculadora v0.3 A.N.D sofware")
Escreval ("==>      Digite uma operação <+>adição <->subtração")
Escreval ("==>      Digite uma operação <*>multiplicação divição")
escreval ("________________________________________________________")
leia (act)

se (act="+")entao
   escreval ("Digite os dois numeros:")
   escreva ("                              ")
   leia (valor1)
   escreva ("                            + ")
   leia (valor2)
   escreval ("                             ______")
   resultado <- valor1+valor2
   escreval ("                              ", resultado)

fimse

se (act="*")entao
   escreval ("Digite os dois numeros:")
   escreva ("                              ")
   leia (valor1)
   escreva ("                            * ")
   leia (valor2)
   escreval ("                             ______")
   resultado <- valor1*valor2
   escreval ("                              ", resultado)

fimse

se (act="-") entao
   escreval ("Digite os dois numeros:")
   escreva ("                              ")
   leia (valor1)
   escreva ("                            - ")
   leia (valor2)
   escreval ("                             ______")
   resultado <- valor1-valor2
   escreval ("                              ", resultado)

fimse

se (act="/") entao
   escreval ("Digite os dois numeros:")
   escreva ("                              ")
   leia (valor1)
   escreva ("                            / ")
   leia (valor2)
   escreval ("                             ______")
   resultado <- valor1/valor2
   escreval ("                              ", resultado)

fimse

escreval ("________________________________________________")
se resultado >= 0 entao

   escreval ("Este número é positivo")
senao
   escreval ("Este número é negativo")
fimse

se resultado>100 entao
   escreval ("Esse numero é maior que cem")
senao
   escreval ("Esse numero é menor que cem")
fimse
escreval ("____________________________________________")

fimalgoritmo