Valor da diária, valor médio arrecadado com e sem promoção e o lucro ou prejuízo mensal de uma promoção em um hotel - Desafio de Programação Resolvido em VisuAlg

Informe o valor da diária normal: 120
Diária no período de promoção: 26,40
Média arrecadada sem a promoção durante um mês: 8064,00
Média arrecadada com a promoção durante um mês: 3104,64
Prejuízo mensal com a promoção: 4959,36

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

algoritmo "Calcular o lucro ou prejuízo de uma promoção em um hotel"

var
  // valor da diária em período normal
  valor_diaria_normal: real
  // valor da diária no período de promoção
  valor_diaria_promocao: real
  // outras variáveis auxiliares
  media_arrecadado_sem_promocao: real
  media_arrecadado_com_promocao: real

inicio
  // vamos obter o valor da diária no período normal
  escreva("Informe o valor da diária normal: ")
  leia(valor_diaria_normal)

  // vamos obter o valor da diária no período promocional
  valor_diaria_promocao <- valor_diaria_normal * (22.0 / 100.0)

  // vamos calcular o valor médio arrecadado sem a promoção, durante um mês
  // estamos assumindo 4 finais de semana por mês
  media_arrecadado_sem_promocao <- (valor_diaria_normal * (42 * (40.0 / 100.0)) * 4)

  // vamos calcular o valor médio arrecadado com a promoção, durante um mês
  // estamos assumindo 4 finais de semana por mês
  media_arrecadado_com_promocao <- (valor_diaria_promocao * (42 * (70.0 / 100.0)) * 4)

  escreval("Diária no período de promoção: ", valor_diaria_promocao)
  escreva("Média arrecadada sem a promoção durante um mês: ")
  escreval(media_arrecadado_sem_promocao)
  escreva("Média arrecadada com a promoção durante um mês: ")
  escreval(media_arrecadado_com_promocao)

  // houve lucro ou prejuízo?
  se (media_arrecadado_sem_promocao < media_arrecadado_com_promocao) entao
    escreva("Lucro mensal com a promoção: ")
    escreval(media_arrecadado_com_promocao - media_arrecadado_sem_promocao)
  senao
    escreva("Prejuízo mensal com a promoção: ")
    escreval(media_arrecadado_sem_promocao - media_arrecadado_com_promocao)
  fimse

fimalgoritmo