Algoritmo "maior de 2 números - versão 3"

 Algoritmo "maior de 2 números - versão 3"

Var

Inicio

funcao maior(a,b:inteiro):caracter

var aux: inteiro

inicio

   se (a>b) entao

      retorne numpcarac(a)

   senao

      retorne numpcarac(b)

   fimse

fimfuncao

funcao pedirNumero():inteiro

var n:inteiro

inicio

   escreva("Escreva um número: ")

   leia(n)

   retorne n

fimfuncao

funcao numeros():caracter

inicio

   retorne "O maior número é "+ maior(pedirNumero(),pedirNumero())

fimfuncao

escreva(numeros())

Fimalgoritmo