ejemplo subproceso

subproceso resultado <- sumar(num1, num2)
	Definir resultado Como Real;

	resultado = num1 + num2;
FinSubProceso
Proceso sin_titulo
	Definir numero1 como entero;
	Definir numero2 como real;
	numero1 = 0;
	numero2 = 0;

	Escribir "Ingrese un numero entero";
	Leer numero1;

	Escribir "Ingrese un numero Real";
	Leer numero2;

	Escribir "La suma del numero entero y el numero real es: ";
	Escribir sumar(numero1, numero2);

	Escribir "La suma del numero entero y el numero entero es: ";
	Escribir sumar(numero1, numero1);

	Escribir "La suma del numero real y el numero entero es: ";
	Escribir sumar(numero2, numero1);

	Escribir "La suma del numero real y el numero real es: ";
	Escribir sumar(numero2, numero2);

FinProceso

//ejemplo 2

subproceso validar <- EsNumero(text)
	Definir validacion como logico;
	Definir segundoValidador como logico;
	Definir indice Como Entero;
	indice = 0;
	validacion = falso;
	segundoValidador = Verdadero;

	Mientras indice < longitud(text) hacer
		si Subcadena(text,indice,indice) == "1" entonces
			validacion = verdadero;
		Sino
			si Subcadena(text,indice,indice) == "2" Entonces
				validacion = Verdadero;
			sino
				si Subcadena(text,indice,indice) == "3" Entonces
					validacion = Verdadero;
				Sino
					si Subcadena(text,indice,indice) == "4" Entonces
						validacion = Verdadero;
					sino
						si subcadena(text,indice,indice) == "5" entonces
							validacion = Verdadero;
						Sino
							si Subcadena(text,indice,indice) == "6" entonces
								validacion = verdadero;
							Sino
								si Subcadena(text,indice,indice) == "7" Entonces
									validacion = Verdadero;
								Sino
									si Subcadena(text,indice,indice) == "8" Entonces
										validacion = Verdadero;
									Sino
										si Subcadena(text,indice,indice) == "9" Entonces
											validacion = Verdadero;
										Sino
											si Subcadena(text,indice,indice) == "0" Entonces
												validacion = Verdadero;
											Sino
												si Subcadena(text,indice,indice) == "-" Entonces
													validacion = Verdadero;
												Sino
													segundoValidador = falso;
												FinSi
											FinSi
										FinSi
									FinSi
								FinSi
							FinSi
						FinSi
					FinSi
				FinSi
			FinSi
		FinSi
		indice = indice + 1;
	FinMientras

	si validacion == Verdadero && segundoValidador == Verdadero Entonces
		validacion = Verdadero;
	Sino
		validacion = falso;
	FinSi
FinSubProceso
Proceso sin_titulo
	Definir nombre,direccion,sexo,texto como caracter;
	Definir edad Como Entero;

	nombre = "";
	direccion = "";
	edad = -1;
	sexo = "3";
	texto = "";

	Mientras longitud(nombre) < 3 hacer
		Escribir "Escriba nombre con mas de 3 letras";
		Leer nombre;

		si Longitud(nombre) < 3 entonces
			Escribir "Ha ingresado un numero no valido, intente nuevamente";
		FinSi
	FinMientras

	Mientras edad < 0 || edad > 130 hacer
		Escribir "ingrese una edad entre 0 y 130 años";
		leer texto;
		si EsNumero(texto) == verdadero entonces
			edad = convertirANumero(texto);
			si edad < 0 || edad > 130 Entonces
				Escribir "Ha ingresado una edad no valida, intente nuevamente";
			FinSi
		Sino
			Escribir "la edad es un numero, pajaron....";
		FinSi
	FinMientras

	Mientras Mayusculas(sexo) != "MASCULINO" && Mayusculas(sexo) != "FEMENINO" Hacer
		Escribir "ingrese sexo masculino o femenino";
		Leer sexo;

		si Mayusculas(sexo) != "MASCULINO" && Mayusculas(sexo) != "FEMENINO" Entonces
			Escribir "Ha ingresado un sexo no valido, intente nuevamente";
		FinSi
	FinMientras

	Escribir "ingrese direccion";
	Leer direccion;

	Escribir "";
	Escribir "===========================================";
	Escribir "los datos de la persona son:";
	Escribir "Nombre: ", nombre;
	Escribir "Edad: ", edad;
	Escribir "Sexo: ", sexo;
	Escribir "Direccion: ", direccion;

FinProceso