Desarrollar un algoritmo que calcule el salario neto que debe recibir un Vendedor de un almacén. Se debe tener en cuenta si tiene derecho o No al auxilio de transporte. Para el desarrollo del ejercicio tenga en Cuenta las siguientes formulas: Sueldo devengado = salario básico * días laborados / 30. Días laborados = debe ser entre 1 y 30. Auxilio de Transporte: Lo reciben los empleados cuyo salario básico Sea menor o igual a 2 salarios mínimos legales vigentes. Salario Mínimo Legal Vigente (2013): 589500. Auxilio de Transporte = 70500 * días laborados / 30 (año 2013 en Colombia). Comisión de Ventas: En la empresa se tiene estipulado dar una Comisión de ventas del 2% sobre las ventas del mes de cada vendedor. Total devengado = sueldo devengado + comisión de ventas. Total deducciones = descuentos por préstamos. Salario Neto = Total devengado – Total deducciones Como resultado del ejercicio se debe imprimir en pantalla lo siguiente: Cedula empleado: XXXXXX Nombre Empleado: XXXXXXX Salario Básico: XXXXXX Auxilio de Transporte: XXXXXX Comisión de Ventas: XXXXXX Préstamos: XXXXXX Salario Neto a Recibir: XXXXX

Proceso calcular_salario
    Definir R,nmbre Como Caracter;
    Definir cdla,slrio_bsco,tv,das_lbrdos,slrio_dvngdo,axlio_trsprte,cmson_vntas,D,ttal_dvngdo,slrio_nto,slrio_mnmo Como Real;
    slrio_mnmo <- 589500;
    Escribir 'Bienvenido al centro de nomina de su empresa';
    Escribir 'Por favor ingrese su numero de cédula';
    Leer cdla;
    Escribir 'Por favor digite su nombre completo';
    Leer nmbre;
    Escribir 'Ingrese su salario';
    Leer slrio_bsco;
    Escribir 'Ingresa la cantidad de dinero que le debes a la empresa';
    Leer D;
    Escribir 'Ingrese el total de ventas que usted realizó';
    Leer tv;
    Escribir 'Ingrese la cantidad de días que usted laboró';
    Leer das_lbrdos;
    Mientras das_lbrdos>30 O das_lbrdos<1 Hacer
        Repetir
            Escribir 'Por favor ingrese un dato valido, recuerde que el programa sólo recibe numeros de 1 a 30';
            Escribir 'Ingrese la cantidad de días que usted laboró ';
            Leer das_lbrdos;
        Hasta Que das_lbrdos>1
    FinMientras
    slrio_dvngdo <- slrio_bsco*das_lbrdos/30;
    Si slrio_bsco<=slrio_mnmo*2 Entonces
        axlio_trsprte <- 70500*das_lbrdos/30;
    Sino
        axlio_trsprte <- 0;
    FinSi
    cmson_vntas <- tv*2/100;
    ttal_dvngdo <- slrio_dvngdo+cmson_vntas+axlio_trsprte;
    slrio_nto <- ttal_dvngdo-D;
    Escribir 'Muchas gracias por elegirnos, la información sobre su sueldo es:';
    Escribir 'Cédula de Ciudadania: ',cdla;
    Escribir 'Nombre del empleado: ',nmbre;
    Escribir 'Salario básico: ',slrio_bsco;
    Escribir 'Auxilio de trasporte: ',axlio_trsprte;
    Escribir 'Comisión de ventas: ',cmson_vntas;
    Escribir 'Prestaos: ',D;
    Escribir 'Salario neto a recibir: ',slrio_nto;
FinProceso