Lista1_Ex1

// Aluno: Luiz Henrique Forino
// Programação 1, professor Thiago PX

program L1_Q1;
const
    porcent= 0.3   ;
var
    salariob, prest, emprest : real; //prest = prestação, emprest = empréstimo
begin
    writeln ('Digite o valor do seu salário: ');
    readln (salariob);
    writeln ('Digite o valor do empréstimo: ');
    readln (prest);

    emprest:= salariob*porcent;

    if prest <= emprest then
        writeln ('Empréstimo concedido com sucesso!')
    else
        writeln ('Empréstimo negado com sucesso!');
        readln ();
end.