Programa con SL

/*
Objetivo: Calculo de aguinaldo a cobrar

Fecha:12-05-13
Enunciado del problema:
Ingresar los siguientes datos:
- Nombre
- Numero de Legajo
- Cantidad de Meses trabajados
- Porcentaje dePLUS si lo recibio

Validar los valores del mes ingresado, si recibio el plus, y el porcentaje correspondiente. Finalizar la carga con ENTER.
Realizar calculos e impresiones del porcentaje del pluspercibido, y del aguinaldo a cobrar.
/*

/* ENTORNO */
var
cNOMBRE :cadena
nNRO_LEGAJO :numerico
nMESES_TRAB :numerico
nMONTO_TOTAL :numerico
nMONTO_AGUI:numerico
nNRO_EMPLEADOS :numerico
nREC_PLUS :numerico
nPOR_PLUS :numerico
nMONTO_PLUS :numerico
nMONTO_PRIMER_MES :numerico
/* CUERPO PRINCIPAL */
inicioPROCESO_INICIAL()
/* La carga finaliza con ENTER */
mientras (cNOMBRE "")
{
nNRO_EMPLEADOS=nNRO_EMPLEADOS + 1
PROCESO_PRINCIPAL()
}
PROCESO_FINAL()
fin

sub PROCESO_INICIAL()
inicio
cls()nNRO_EMPLEADOS=0
nMESES_TRAB=0
nMONTO_TOTAL=0
nMONTO_AGUI=0
nMONTO_PLUS=0
nMONTO_PRIMER_MES=0
imprimir ("\nCalculo para cobro de Aguinaldo\n")
INGRESAR_NOMBRE()
fin

subPROCESO_PRINCIPAL()
inicio
INGRESAR_DATOS()
CALCULAR_AGUINALDO()
INGRESAR_NOMBRE()
fin

sub PROCESO_FINAL()
inicio
imprimir ("\nCantidad de empleados procesados: ", nNRO_EMPLEADOS)
imprimir("\n** FIN DE PROCESO **")
fin

/* Estructura repetitiva con condición inicial */
sub INGRESAR_NOMBRE()
inicio
imprimir ("\nIngresar Nombre (ingrese ENTER para terminar):")
leer (cNOMBRE)
finsub INGRESAR_DATOS()
inicio
INGRESAR_LEGAJO()
INGRESAR_CANTIDAD_MES()
INGRESAR_SALARIO_PERCIBIDO()
INGRESAR_RECIBIO_PLUS()
si (nREC_PLUS==1)
{
INGRESAR_PORCENTAJE_PLUS()
}
fin/*Solicita el numero de legajo*/
sub INGRESAR_LEGAJO()
inicio
repetir
imprimir ("\nIngresar Nro. de Legajo (Debe ser mayor a cero):")
leer (nNRO_LEGAJO)
hasta (nNRO_LEGAJO > 0)
fin...