Kaiza

Muito obrigado, me ajudou muito

Olá pessoal, sou novo nisso de programar e estava acompanhando o conteúdo de Portugol de um curso que comprei e durante um exercício eu pensei em implementar algo, mas não faço ideia de como fazer isso. O exercício em questão é sobre o troco de certa mercadoria e quando sai o resultado aparece escrito "reais", ai eu fiquei pensando "E se o valor for 1 real? como eu coloco esse 'reais' no singular?", se alguém puder me ensinar uma condição para fazer isso eu agradeço

algoritmo "Troco"
var
   preco, dinheiro, troco, resto : real
   quantidade : inteiro

inicio
   escreva("Digite o preço unitário: ")
   leia(preco)

   escreva("Quantidade comprada: ")
   leia(quantidade)

   escreva("Dinheiro recebido: ")
   leia(dinheiro)

   se dinheiro >= (preco * quantidade) entao
      troco <- dinheiro - (preco * quantidade)
      escreval("Troco = ", troco:4:2)
   senao
      resto <- (preco * quantidade) - dinheiro
      escreval("Dinheiro insuficiente. Faltam ", resto:4:2, " Reais")
   fimse
fimalgoritmo