Algoritmo para Cálculo do Imposto de Renda

Sabe-se que a fórmula para cálculo do imposto de renda sobre salários é dada por:

Fórmula:

imposto = salário * (taxa / 100) – dedução

Para cada faixa salarial existe uma taxa certa e um valor a deduzir.

Salário	Taxa	Dedução
até 900,00	0%	0
de 900 a 1800,00	15%	R$135,00
acima de 1800,00	27,5%	R$360,00

Pseudocódigo:

programa exercicio21
var
   salario, imposto : real;
inicio
   leia salario;
   leia imposto;
   se (salario > 900) entao
      se (salario >= 1800) entao
         imposto ← salario * (27,5/100) - 360; 
   senao
	   imposto ← salario * (15/100) - 135;
	   escreva imposto
     senao
         escreva "Salario menor que R$900,00 - Isento";
      fim_se; 
   fim_se;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 27/03/2014
Program exercicio21;
 uses crt;
 var
 salario, imposto : real;
 Begin
 writeln('Insira o Salario');
 readln(salario);
 	if (salario > 900) then
	    if (salario >= 1800) then
 	       imposto := salario * (27.5/100) - 360
 	else
 	 begin
	   imposto := salario * (15/100) - 135;
	   writeln('O Imposto = ', imposto:7:2);
	 end
 	    else
		  writeln('Salario menor que R$900,00 - Isento');
 writeln('Pressione para fechar');
 readkey;  
End.