Um algoritmo Portugol que calcula qual o menor número possível de notas de 100, 50, 10, 5 e 1 em que o valor a ser sacado pode ser decomposto - Lista de Exercícios Resolvidos de Portugol

Informe o valor do saque (valor inteiro): 139
O valor do saque pode ser expresso em:
1 notas de 100
0 notas de 50
3 notas de 10
1 notas de 5
4 notas de 1

// Quantidade mínima de notas em um caixa eletrônico em Portugol

programa {
  funcao inicio() {
    // variáveis usadas na resolução do problema
    inteiro cem, cinquenta, dez, cinco, um
    inteiro valor, temp

    // variáveis que vão guardar a quantidade de notas de 100, 50, 10, 5 e 1
    cem = 0
    cinquenta = 0
    dez = 0
    cinco = 0
    um = 0

    // vamos solicitar o valor a ser sacado
    escreva("Informe o valor do saque (valor inteiro): ")
    // vamos ler o valor do saque
    leia(valor)

    // inicializa a variável temporária
    temp = valor

    // quantas notas de 100?
    se (temp >= 100) {
      cem = inteiro(valor / 100)
      temp = valor % 100
    }
  
    // quantas notas de 50?
    se (temp >= 50) {  
      cinquenta = inteiro(temp / 50)
      temp = temp % 50
    }
  
    // quantas notas de 10?
    se (temp >= 10) {
      dez = inteiro(temp / 10)
      temp = temp % 10
    }
    
    // quantas notas de 5?
    se (temp >= 5) {
      cinco = inteiro(temp / 5)
      temp = temp % 5
    }
  
    // quantas notas de 1?
    se (temp >= 1) {
      um = inteiro(temp / 1)
    }

    // vamos exibir o resultado
    escreva("O valor do saque pode ser expresso em:\n")
    escreva(cem, " notas de 100\n")
    escreva(cinquenta, " notas de 50\n")
    escreva(dez, " notas de 10\n")
    escreva(cinco, " notas de 5\n")
    escreva(um, " notas de 1\n")
  }
}