Pseint - Nomina Salarial

Proceso Nomina_Salarial
definir sd,He,at,td,ps,tp,vp,ps1,ps2 Como real;
definir s,d,t,he1 como entero;
definir nomb como caracter;
escribir "Nombre del Trabajador";
leer Nomb;
escribir "Salario Basico";
leer s;
escribir "Dias Trabajados";
leer D;
escribir "Auxilio de Transporte";
leer t;
escribir "Horas Extras";
leer He1;

sd<- (s/30)*d;
at<- (t/30)*d;
he<- (s/240)*1.25*he1;
td<- sd+he+at;
ps1<- td*0.04;
ps2<- td*0.04;
vp<- td*0.05;
tp<- td-ps1-ps2-vp;

escribir "Salario Devengado: ",sd;
escribir "Total Auxilio Transporte: ",at;
escribir "Total Horas Extras: ",he;
Escribir "Total Devengado: ",td;
escribir "Menos Seguridad Social (Salud 4% y Pension 4%)";
escribir "Salud: ",ps1;
escribir "Pension: ",ps2;
escribir "Menos prestamo del 5%";
escribir "Valor Prestado: ",vp;
Escribir "Total Pagado: ",tp;
FinProceso