SALÁRIO X FINANCIAMENTO // Algoritmo e programação

algoritmo "salario x financiamento"
//Faça um algoritmo que receba o valor do salário de uma pessoa e o valor
//de um financiamento pretendido. Caso o financiamento seja menor ou igual a 5
// vezes o salário da pessoa, o algoritmo deverá escrever "Financiamento Concedido";
// senão, ele deverá escrever "Financiamento Negado".
//Independente de conceder ou não o financiamento, o algoritmo escreverá depois a frase "Obrigado por nos consultar”.

var
salario,finan:real
inicio
Escreval("Digite o seu salario.")
leia(salario)
Escreval("Digite o valor do seu financiamento.")
leia(finan)
salario <-salario*5
se (salario >= finan) entao
   Escreval("Financiamento Concedido!")
senao
   Escreval("Financiamento Negado!")
fimse
Escreval("Obrigado por nos consultar.")
fimalgoritmo