SubProceso Pausa
	Escribir ""
	Escribir "<enter> para continuar "
	Esperar Tecla
FinSubProceso
SubProceso tablaDeMultiplicar
	Limpiar Pantalla
	Escribir ""
	Escribir "tabla de multiplicar"
	Escribir ""
	Escribir "Qué número de tabla deseas ?"
	Leer vNumero
	Escribir ""
	Para M<-1 Hasta 10 Con Paso 1
		Escribir vNumero," * ",M," = ",(vNumero*M)
	FinPara
	Pausa
FinSubProceso
SubProceso capturaDeNumeros
	Limpiar Pantalla
	Escribir ""
	Escribir "captura de numeros .."
	Escribir ""
	Escribir "cuántos números son ?"
	Leer cantNum
	Escribir ""
	numMayor<-0
	Para M<-1 Hasta cantNum Con Paso 1
		Escribir "valor no.",M," ?"
		Leer vValor
		Si(vValor>numMayor)Entonces
			numMayor<-vValor
		FinSi
	FinPara
	Escribir ""
	Escribir "el mayor de todos es ",numMayor
	Pausa
FinSubProceso
SubProceso menu
	Limpiar Pantalla
	Escribir ""
	Escribir "menú"
	Escribir ""
	Escribir "1. tabla de multiplicar"
	Escribir "2. captura de números "
	Escribir "3. salir"
	Escribir "qué opción deseas ?"
FinSubProceso
Proceso ejemplo
	Repetir
		menu
		Leer resp
		Segun resp Hacer
			1:tablaDeMultiplicar
			2:capturaDeNumeros
		FinSegun
	Hasta Que resp=3	
FinProceso