Algoritmo salarios modificado

A continuación, le voy a presentar el algoritmo modificado: 

SubProceso SN <- calculos(SBH3,Nht3,RT3,Aem3,SBM3)
Definir SBRUTO,SN como REAL
SBRUTO<- SBH3*Nht3 //calcula el salario bruto
SN<- SBRUTO - RT3 //Calcula el salario neto
si (Aem3>10) entonces
SN <- SN+ 100000 //Bonificación a empleados
Escribir "Bonificacion"
FInsi
Si ((Aem3>5) y (Aem3<10) y (SN <60000)) entonces
Escribir 'Tendrá aumento de sueldo'
FInsi
Si (Aem3 <1) entonces
Escribir 'Bienvenido'

FinSi
FinSubProceso

Proceso Salarios
Definir nomemp1, nomemp2 como cadena
Definir SBH1, SBH2,SBM1, SBM2,RT1, RT2, SN1, SN2 Como Real
Definir Nht1,Nht2,Aem1,Aem2 como entero
SN1<- 0
SN2 <-0

//Se piden datos de empleado
Escribir ' Ingrese el código del empleado1'
Leer Cod1
Escribir 'Ingrese el Nombre del empleado1'
Leer nomemp1
Escribir 'Ingrese el valor de Salario básico la hora'
Leer SBH1
Escribir 'Ingrese el número de horas trabajadas'
Leer Nht1
Escribir 'Ingrese el valor de Retención en la fuente'
Leer RT1
Escribir 'Ingrese los años qué el empleado1 lleva en la empresa'
Leer Aem1
Escribir 'Ingrese el salario básico del empleado1'
Leer SBM1

Escribir 'El empleado 1 = ' calculos(SBH1,Nht1,RT1,Aem1,SBM1)

//Se piden datos del empleado2

Escribir ' ingrese el código del empleado2'
Leer Cod2
Escribir 'Ingrese el Nombre del empleado2'
Leer nomemp2
Escribir 'Ingrese el valor de Salario básico la hora'
Leer SBH2
Escribir 'Ingrese el número de horas trabajadas'
Leer Nht2
Escribir 'Ingrese el valor de Retención en la fuente'
Leer RT2
Escribir 'Ingrese los años qué el empleado2 lleva en la empresa'
Leer Aem2
Escribir 'Ingrese el salario básico del empleado2'
Leer SBM2
Escribir 'El empleado 2 = ' calculos(SBH2,Nht2,RT2,Aem2,SBM2)



FinProceso