Eduardo V

Como fazer uma função ler o retorno de outra no visualg?

//---------------------------------------------------------------------
          funcao lerTotalc(): real
          Var
             combustiveln: real
             trechototal: real
          Inicio
              combustiveln <- trechototal * 3.6
          retorne(combustiveln)
//---------------------------------------------------------------------
          
          funcao lerCombp(): inteiro //combustivel presente no avião
          Var
             combustivelp, combustiveln, totalcombustivel: inteiro
          Inicio
                combustiveln <- lerTotalc()
                escreval("Quantos litros de combustivel já tem no avião?")
                leia(combustivelp)
                se combustivelp = 0 entao
                totalcombustivel = combustiveln
                senao
                totalcombustivel <- combustiveln - combustivelp
                fimse
          retorne(totalcombustivel)
          fimfuncao
//----------------------------------------------------------------------

<>

Algoritmo "lergado"

Var
   vet       : vetor[0..9] de inteiro
   vet_par : vetor[0..9] de inteiro
   vet_impar   : vetor[0..9] de inteiro
    i : inteiro
   i_impar, i_par : inteiro
Inicio
   Escreva( "Divisão do gado:")
   
    Para i de 0 até 9 faça
         Escreva(i+1, "º valor:")
        Leia(vet[i])
   fimpara
   
   i_par <- 0
   i_impar   <- 0
   
   Para i de 0 até 9 faça
   
      Se( vet[i] % 2 = 0 ) então
          vet_par[i_par] <- vet[i]
          i_par <- i_par + 1
      Senão
          vet_impar[i_impar] <- vet[i]
          i_impar <- i_impar + 1
      fimse
      
   fimpara
   

   Escreva()
   Escreva("Pasto 1:")
   Escreva()
   Para i de 0 até (i_par-1) faça
          Escreva( vet_par[i] )
   fimpara
   
   Escreva(" ")
   Escreva("Pasto 2:")
   Escreva()
   Para i de 0 até (i_impar-1) faça
          Escreva( vet_impar[i] )
   fimpara
   
Fimalgoritmo