emprestimo

algoritmo "creuza05"
var
emprestimo, juros, parcelas, valor_parcela, total, juros_calc:real
inicio
      escreva ("Qual o valor do emprestimo? ")
      leia (emprestimo)
      escreva ("Qual a porcetagem de juros? ")
      leia (juros)
      escreva ("Qual a quantidade de parcelas? ")
      leia (parcelas)
      juros_calc <- (emprestimo*juros)/100
      total <- emprestimo+juros_calc
      valor_parcela <- total/parcelas
      escreval ("São ",parcelas," parcelas de R$",valor_parcela,".")
      escreval ("O total a ser pago é de R$",total,".")
      escreva ("Foi cobrado R$",juros_calc," de juros.")
fimalgoritmo