Escreva um programa VisuAlg que pede para o usuário informar o salário de uma pessoa, o valor de um empréstimo e a quantidade de prestações - Desafio de Programação Resolvido em VisuAlg

Informe o salário: 1350
Informe o valor do empréstimo: 6000
Informe a quantidade de parcelas: 12
O valor das parcelas do empréstimo é: 500.0
Empréstimo não pode ser concedido

algoritmo "Como testar aprovação de empréstimo em VisuAlg"

var
  // variáveis usadas na resolução do problema
  salario, emprestimo, valor_parcela: real
  quant_prestacoes: inteiro

inicio
  // vamos ler os dados
  escreva("Informe o salário: ")
  leia(salario)
  escreva("Informe o valor do empréstimo: ")
  leia(emprestimo)
  escreva("Informe a quantidade de parcelas: ")
  leia(quant_prestacoes)

  // vamos calcular e mostrar o valor da parcela do empréstimo
  valor_parcela <- emprestimo / quant_prestacoes
  escreval("O valor das parcelas do empréstimo é: ", valor_parcela)

  // o empréstimo pode ser concedido?
  se valor_parcela > (salario * (20.0 / 100.0)) entao
    escreval("Empréstimo não pode ser concedido")
  senao
    escreval("Empréstimo pode ser concedido")
  fimse

fimalgoritmo