LISTA01_EX06 - 2014/02

Program LISTA01_EX06;

var salmin, salpess, salrecebe: real;
 Begin
      writeln ('Digite o valor do salário mínimo: ');
      readln (salmin);
      writeln ('Digite o valor do seu salário: ');
      readln (salpess);

      if (salpess < salmin) then
        begin
          writeln ('Erro: o seu salário é menor do que o salário mínimo.');
        end
      else

      salrecebe := (salpess / salmin);

      writeln ('Você recebe ',salrecebe:10:2,' salário(s) minimo(s).');

 End.