Algoritmo Emprestimo

/*
 * Um banco abriu uma linha de crédito para funcionários. O valor máximo da
prestação não poderá ultrapassar 30% do salário bruto do funcionário. Fazer um
algoritmo que permita entrar com o salário bruto e o valor da prestação e informar
se o empréstimo pode ou não ser concedido.
 */
programa
{

	funcao inicio()
	{
		real salarioBruto, parcela, valorMaximo
		cadeia status
		escreva ("Digite o salário bruto: ")
		leia (salarioBruto)
		escreva ("Digite o valor da parcela: ")
		leia (parcela)
		valorMaximo = salarioBruto * 0.30

		se (parcela <=valorMaximo) {
			status = "Pode ser concedido"
		}
		senao {
			status = "Não pode ser concedido"
		}

		escreva ("O valor máximo da parcela é de: "+ valorMaximo + "\n")
		escreva (status)
	}
}