Pseudocódigo 18

Elaborar un algoritmo el cual pida el nombre del empleado, su departamento y su sueldo mensual, este deberá calcular un subsidio del 10% si el sueldo es igual o menor a 1500$ y si es mayor a los 1500$ se le cobrara un impuesto del 20%

Proceso Sueldo_Neto_De_Empleados  //Cruz Sosa Aldo Ing.biomedica "B"
    Definir SueldoNeto,SueldoMensual,subsidio,codigo,sueldototal,aumento Como Real;
    definir nombre, departamento  como caracter;
    Escribir " Cual es el nombre del empleado? ";
    leer nombre;
    Escribir " Cual es el departamento del empleado? ";
    leer departamento;
    Escribir " Cuanto es el Sueldo Mensual? ";
    leer SueldoMensual;
     Si SueldoMensual<=1500 Entonces
        Escribir " Su subsidio Es Del 10% señor@ ",nombre;
        subsidio<-(SueldoMensual*10)/(100);
        Escribir " Su subsudio es de: ",subsidio;
        SueldoNeto<-SueldoMensual+subsidio;
        Escribir " Su sueldo neto es: ",SueldoNeto;
        aumento<-SueldoNeto*0.08;
        Escribir " Su Aumento es de 8% ";
        Escribir  " Su Aumento es de ",aumento;
        sueldototal<-SueldoNeto+aumento;
        Escribir " Su sueldo Total es de: ",sueldototal;
     SiNo
        Escribir " Se le Cobrara el 20% de impuestos ";
        subsidio<-(SueldoMensual*20)/(100);
        Escribir  " Se le cobrara: ",subsidio," de impuestos ";
        SueldoNeto<-SueldoMensual-subsidio;
        Escribir " Su sueldo neto es de: ",SueldoNeto;
        aumento<-SueldoNeto*0.08;
        Escribir " Su Aumento es de 8% ";
        escribir " Su aumento es de: ",aumento;
        sueldototal<-SueldoNeto+aumento;
        Escribir " Su sueldo Total es de: ",sueldototal;
    FinSi
FinProceso