LISTA2_EX4 2014/02

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//2014/02

Program EX04_LISTA02 ;

var x, y :integer; //x = salário bruto, y = valor da prestação
const n = 0.3;

Begin
     writeln ('Digite o valor do seu sallário bruto: ');
     readln (x);
     writeln ('Digite o valor do empréstimo: ');
     readln (y);


     if y > (x*n) then
      begin
        writeln ('Empréstimo negado')
      end;
     if y < (x*n) then
      begin
        writeln ('Empréstimo concedido')
      end

End.