Algoritmo salarios modificado

Algoritmo Salarios
Definir CODEMP1, CODEMP2, NOMEMP como cadena;
Definir SALBH, RT1, RT2, SALN1, SALN2 Como Real;
Definir AEMP1, AEMP2, NHT1, NHT2 Como Entero;
SALN1 <- 0;
SALN2 <- 0;
Escribir "Códigos";
Leer CODEMP1, CODEMP1;
Escribir "Nombres";
Leer NOMEMP1, NOMEMP2;
Escribir "Salario básico hora";
Leer SALBH;
Escribir "Número de horas trabajadas";
Leer NHT1, NHT2;
Escribir "Retención en la fuente";
Leer RT1, RT2;
Escribir "Años en la empresa";
Leer AEMP1, AEMP2;
SALN <- CALCULOS (SALBH, RT1, RT2, NHT1, NHT2, AEMP1, AEMP2);
    Escribir "Código: ", CODEMP1, CODEMP2;
    Escribir "Nombre: ", NOMEMP, NOMEMP2;
    Escribir "Salario Neto: $", SALN1, SALN2;
FinAlgoritmo

Funcion C <- CALCULOS (SALBH, RT1, RT2, NHT1, NHT2, AEMP1, AEMP2);
Definir NHT, AEMP como Entero;
Definir SN1, SN2, SALBR como real;
SALBR1 <- SALBH1 * NHT1 ;
SALBR2 <- SALBH2 * NHT2;
SN1 <- SALBR1-RT1;
SN1 <- SALBR2-RT2;
Si (AEMP1 > 10) entonces SN1 <- SN1 + 100000 ;
Finsi
Si (AEMP2 > 10) entonces SN2 <- SN2 + 100000;
Finsi

Si (AEMP1 > 5) O ( AEMP1 < 10 ) O (SN1 < 60000)
entonces
Escribir "Tendrá aumento de sueldo";
Finsi
Si (AEMP2 > 5) O ( AEMP2 < 10 ) O (SN2 < 60000)
entonces
Escribir "Tendrá aumento de sueldo";
Finsi

SI AEMP1 < 1 entonces Escribir "Bienvenido";
Finsi
SI AEMP2 < 1 entonces Escribir "Bienvenido";
Finsi

SI (AEMP1 > 5) O ( AEMP1 < 10 ) O (SN1 < 60000) entonces
Escribir "Tendrá aumento de sueldo";
Finsi

SI (AEMP2 > 5) O ( AEMP2 < 10 ) O (SN2 < 60000) entonces
Escribir "Tendrá aumento de sueldo";
Finsi

SI AEMP1 < 1
Entonces
Escribir "Bienvenido";
Finsi
SI AEMP2 < 1
Entonces
Escribir "Bienvenido";
Finsi

Finfuncion