Pseudocódigo 12

La empresa Bimbo solicita a sus programadores realizar un algoritmo el cual calcule el salario de sus trabajadores, el programa debe pedir el salario por hora, las horas trabajadas, y calcular las horas extras, el programa pedirá cuanto mas se pagana las horas extras y finalmente imprimir en pantalla el sueldo neto (sin hrs extras) y el suelto total, osea el sueldo con las horas extras pagadas.

 Proceso Pago_de_un_trabajador //Cruz Sosa Aldo Ing.Biomedica "B"
    Definir salario,sueldoBase,pagoXhr,HRStrabajadas,
    hrsExtra,trabajoExtra,sueldoNeto como real;
    Escribir " *** Bienvenido a BIMBO*** ";
    Escribir" cuanto Pagan Por Hora? ";
    leer pagoXhr;
    Escribir" Cuantas Horas Se Trabajo? ";
    leer HRStrabajadas;
    sueldoBase<-pagoXhr*HRStrabajadas;
    Escribir" El Sueldo Base Es: ",sueldoBase;
    Escribir" Cuanto Pagan Las Horas Extra? ";
    leer hrsExtra;
    Escribir " Cuantas Horas Extra Se Trabajo? ";
    leer trabajoExtra;
    sueldoNeto<-hrsExtra*trabajoExtra;
    Escribir" El Sueldo Neto Es: ",sueldoNeto;
    salario<-sueldoBase+sueldoNeto;
    escribir" El Salario Total Es: ",salario;
FinProceso