Pseint - Bonificación

Proceso Bonificacion
definir Nomb,nomb_emp,civil,folc como caracter;
definir tiem,sal,num_hijos como entero;
definir solt,casad,rango,menor_tiem,mayor_tiem,asocia,hijos como real;

escribir "Nombre de la Empresa";
leer nomb_emp;
escribir "Nombre del trabajador";
leer Nomb;
escribir "Salario del Trabajador";
leer sal;
escribir "Tiempo que lleva Trabajando";
leer Tiem;
escribir "Pertenece a alguna Asociacón Folclórica (si=S o no=N)?";
leer folc;
escribir "Estado Civil";
leer civil;
escribir "Cuantos hijos tiene o si no tiene escriba 0";
leer num_hijos;

menor_tiem<- (sal*0.10);
rango<- (sal*0.20);
mayor_tiem<- (sal*0.30);
asocia<- (sal*0.15);
solt<- (sal*0.05);
casad<- (sal*0.10);
hijos<- (sal*0.01)*num_hijos;

si tiem<5 entonces
escribir "La Bonificación por tener menos de 5 años trabajando es " Menor_tiem;
Sino
si tiem>=5 y tiem<=10 entonces
escribir "La Bonificación por tener entre 5 a 10 añor trabajando es " rango;
Sino
si tiem>10 entonces
escribir "La Bonificación por tener mas de 10 años trabajando es " Mayor_tiem;
FinSi
FinSi
FinSi

si folc="s" Entonces
escribir "La Bonificación por pertenecer a una Asociación Folclórica es " asocia;
Sino
escribir "No pertenece a alguna Asociacion folclórica";
FinSi

si civil="casado" Entonces
escribir "La Bonificación por ser Casado es " casad;
Sino
escribir " La bonificación por ser Soltero es " solt;
FinSi

escribir "La Bonificación por tener " num_hijos, " hijos es " hijos;
FinProceso