Request to enter a salary and the desired amount of benefit to be paid monthly. If the intended benefit is greater than 20% of the salary, show "Loan can not be granted". Otherwise show "Loan can be granted".
I did it in portugol, but I'm not sure, could you help me?
Var
salario:real
pretencao:inteiro
media:real
Inicio
escreval("Entre com o salario")
leia(salario)
escreval("Pretençao de parcela")
leia(pretencao)
salario<-salario/pretencao
media<-0.02*salario
se media >salario entao
escreval("saldo liberado")
senao
escreval("nao liberado")
fimse