Solución modificada ejercicio 9

Proceso ejemploCondicional
Definir codemp,nomemp Como Caracter;
Definir salbh,rt,saln Como Real;
Definir aemp,nht,contador Como Entero;
saln<-0;
contador<-1;
Mientras contador<=2 hacer
contador<-contador+1;
Escribir "Código";
Leer codemp;
Escribir "Nombre";
Leer nomemp;
Escribir "Salario básico hora";
Leer salbh;
Escribir "Número de horas trabajadas";
Leer nht;
Escribir "Retención en la fuente";
Leer rt;
Escribir "Años en la empresa";
Leer aemp;
saln<-calculos(salbh,rt,nht,aemp);
Escribir "Código: ",codemp;
Escribir "Nombre: ",nomemp;
Escribir "Salario Neto: ",saln;
FinMientras
FinProceso
SubProceso sn<-calculos(salbh,rt,nht,aemp)
Definir sn,salbr como real;
salbr<-salbh*nht;
sn<-salbr-rt;
si(aemp>10) entonces
saln<-saln+100000;
FinSi
si(aemp>5) & (aemp<10) & (sn<60000)Entonces
Escribir "Tendrá aumento de sueldo";
FinSi
si aemp<1 Entonces
Escribir "Bienvenido";
FinSi
FinSubProceso