Algoritmo para ler um salário e atualizá-lo de acordo com a tabela abaixo.

//Faça um algoritmo para ler um salário e atualizá-lo de acordo com a tabela abaixo.

program atualizacaoSalario;

uses crt;

var

salario:real;

begin

writeln(' ------- Atualizacao de salario ----------------- ');

writeln('_________________________________________________ ');

writeln('| FAIXA SALARIAL (R$) | aum.porc. (%) |');

writeln('| ate 500.00 | 50 |');

writeln('|500,01 a 1.000,00 | 40 |');

writeln('|1000,01 a 2.000,00 | 30 |');

writeln('|2000,01 a 2.500,00 | 20 |');

writeln('|axima de 2.500,00 | 10 |');

writeln('------------------------------------------------- ');

writeln;

writeln('Informe o salario:');

readln(salario);

if (salario <=500) then

begin

salario:= salario + (salario*50/100);

end else

begin

if (salario > 500) and (salario <=1000) then

begin

salario:=salario + (salario*40/100);

end else

begin

if (salario > 1000) and (salario <= 2000) then

begin

salario:=salario + (salario*30/100);

end else

begin

if ( salario > 2000) and (salario <= 2500) then

begin

salario:=salario + (salario*20/100);

end else

begin

// salario > 2500

salario:=salario + (salario*10/100);

end;

end;

end;

end;

//mostra o salario atualizado

writeln(' ---------------Novo Salario -------------- ');

writeln(' salario = ',salario);

readkey;

end.