program ejercicio10implicit nonecharacter(len=20)::nombre,puestointeger:: diaslab,sueldone,sueldobru,sudia=150,bono=500print*, "------------------------------------------------------------------------"print*, "Este programa calculara tu salario mensual, mostrandolo detalladamente"print*, "------------------------------------------------------------------------"print*, "introduce tu nombre, puesto"read(*,*) nombre, puestoprint*, "cuantos dias trabajastes en el mes?"read(*,*) diaslabif (diaslab