Elaborar un algoritmo que Lea el nombre y la edad de los alumnos de la institución.EN LPP

//Elaborar un algoritmo que Lea el nombre y la edad de los alumnos de la institución.EN LPP
//Se debe imprimir el nombre y la edad del alumno mayor y el nombre y la edad del alumno menor

Cadena [50] nombre, nmayor, nmenor
Entero edad, edadmayor, edadmenor, nalumnos, i

INICIO
    Escriba "Ingrese numero de alumnos: "
    Lea nalumnos
    Escriba "Ingrese Nombre: "
    Lea nombre
    Escriba "Ingrese Edad: "
    Lea edad
    edadmayor<-edad
    edadmenor<-edad
    nmayor<-nombre
    nmenor<-nombre
   
    Para i<-1 Hasta nalumnos-1 Haga
        Escriba "Ingrese Nombre: "
        Lea nombre
        Escriba "Ingrese Edad: "
        Lea edad
       
        Si edad>edadmayor Entonces
            edadmayor<-edad
            nmayor<-nombre
        SiNo
            Si edad<edadmenor Entonces
                edadmenor<-edad
                nmenor<-nombre
            Fin Si
        Fin Si
    Fin Para
   
    Escriba "El alumno menor es: ", nmenor, ", La edad: ", edadmenor
    Llamar nueva_linea
    Escriba "El alumno mayor es: ", nmayor, ", La edad: ", edadmayor
FIN

COLORES EN LPP

COLORES EN LPP (NUMERO)

Entero i
Inicio
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(1)
        Llamar Posicionar_Cursor(i, 1)
        Escriba " "
        Llamar Posicionar_Cursor(5, 1)
        Escriba " 1  = Azul Oscuro."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(2)
        Llamar Posicionar_Cursor(i, 2)
        Escriba " "
        Llamar Posicionar_Cursor(5, 2)
        Escriba " 2  = Verde."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(3)
        Llamar Posicionar_Cursor(i, 3)
        Escriba " "
        Llamar Posicionar_Cursor(5, 3)
        Escriba " 3  = Verde Azulado."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(4)
        Llamar Posicionar_Cursor(i, 4)
        Escriba " "
        Llamar Posicionar_Cursor(5, 4)
        Escriba " 4  = Granate."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(5)
        Llamar Posicionar_Cursor(i, 5)
        Escriba " "
        Llamar Posicionar_Cursor(5, 5)
        Escriba " 5  = Morado."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(6)
        Llamar Posicionar_Cursor(i, 6)
        Escriba " "
        Llamar Posicionar_Cursor(5, 6)
        Escriba " 6  = Olivo."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(7)
        Llamar Posicionar_Cursor(i, 7)
        Escriba " "
        Llamar Posicionar_Cursor(5, 7)
        Escriba " 7  = Plateado / Gris Claro."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(8)
        Llamar Posicionar_Cursor(i, 8)
        Escriba " "
        Llamar Posicionar_Cursor(5, 8)
        Escriba " 8  = Gris."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(9)
        Llamar Posicionar_Cursor(i, 9)
        Escriba " "
        Llamar Posicionar_Cursor(5, 9)
        Escriba " 9  = Azul."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(10)
        Llamar Posicionar_Cursor(i, 10)
        Escriba " "
        Llamar Posicionar_Cursor(5, 10)
        Escriba " 10 = Lima / Verde Claro."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(11)
        Llamar Posicionar_Cursor(i, 11)
        Escriba " "
        Llamar Posicionar_Cursor(5, 11)
        Escriba " 11 = Aguamarina."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(12)
        Llamar Posicionar_Cursor(i, 12)
        Escriba " "
        Llamar Posicionar_Cursor(5, 12)
        Escriba " 12 = Rojo."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(13)
        Llamar Posicionar_Cursor(i, 13)
        Escriba " "
        Llamar Posicionar_Cursor(5, 13)
        Escriba " 13 = Fucsia."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(14)
        Llamar Posicionar_Cursor(i, 14)
        Escriba " "
        Llamar Posicionar_Cursor(5, 14)
        Escriba " 14 = Amarillo."
    Fin Para
   
    Para i <- 1 Hasta 80 Haga
        Llamar Color_Fondo(15)
        Llamar Posicionar_Cursor(i, 15)
        Escriba " "
        Llamar Posicionar_Cursor(5, 15)
        Escriba " 15 = Blanco."
    Fin Para
   
    Llamar Color_Texto(7)
    Llamar Posicionar_Cursor(5, 17)
    Escriba " El Color Negro corresponde al Numero 0 y 16."
    Llamar Posicionar_Cursor(5, 18)
    Escriba " Al partir del Numero 17 vuelve repite los mismos Colores en"
    Llamar Posicionar_Cursor(5, 19)
    Escriba " antes descritos. Las Dimensiones respecto a las coordenadas son:"
    Llamar Posicionar_Cursor(5, 21)
    Escriba " Ancho: 80 Caracteres."
    Llamar Posicionar_Cursor(5, 22)
    Escriba " Alto:  25 Lineas."
    Llamar Posicionar_Cursor(5, 24)
    Escriba " FRANK - PERÚ."

Fin

MATRIZ EN LPP SU FUNCION DEL SOFTWARE ES:

/*MATRIZ EN LPP SU FUNCION DEL SOFTWARE ES:
Si desea ordenar la matriz presione: 1.
Sumar matriz: 2.
Sumar diagonal principal: 3.
Encontrar la posicion del mayor y el menor: 4.
mostrar matriz: 5.
*/






arreglo [3,3] de entero m
entero f, c, j, i, mayorpc, mayorpf,menorpc, menorpf, sumae, sumad, mayor, menor, temp, opcion, filas, columnas

inicio
    //llenado de matriz//
    escriba "Ingrese el numero de filas deseadas: "
    lea filas
    llamar nueva_linea
    escriba "Ingrese el numero de columnas deseadas: "
    lea columnas
    llamar nueva_linea
    escriba "Ingrese numeros en la matriz: "
    llamar nueva_linea
    para f<- 1 hasta filas haga
         para c<- 1 hasta columnas haga
             lea m [f,c]
                 si c=columnas entonces
                     llamar nueva_linea
                 fin si
         fin para
     fin para
     //opciones del usuario//
     escriba "Si desea ordenar la matriz presione: 1."
     llamar nueva_linea
     escriba "Sumar matriz: 2."
     llamar nueva_linea
     escriba "Sumar diagonal principal: 3."
     llamar nueva_linea
     escriba "Encontrar la posicion del mayor y el menor: 4."
     llamar nueva_linea
     escriba "mostrar matriz: 5."
     llamar nueva_linea
   
    sumad<-0
    sumae<-0
    temp <-0
    lea opcion
    caso opcion
    1:
     //ordenar matriz//
     
     Para  i<- 1 hasta filas haga
        Para  j<- 1 hasta columnas haga
            Para  f<- 1 hasta filas haga
                para c<-  1 hasta columnas  haga
                    Si  m[f,c] > m[f,c + 1] entonces
                        Temp<- m[f,c + 1]
                        m[f,c + 1]<- m[f,c]
                        m[f,c]<- Temp
                    FIN si
                FIN para
                Si  (c = columnas) y (f= filas) Entonces
                    Si m[f,c] > m[f + 1,1] entonces
                        Temp<- m[f,c]
                        m[f,c]<- m[f + 1, 1]
                        m[f + 1,1]<- Temp
                    FIN si
                FIN si
            FIN para       
        FIN para
    FIN para
   
    //mostrar matriz//
    escriba "matriz ordenada: "
    llamar nueva_linea
    para f<- 1 hasta filas haga
         para c<- 1 hasta columnas haga
                
                 escriba m[f,c]
                 si c=columnas entonces
                     llamar nueva_linea
                 fin si
         fin para
     fin para
    
     2:    //suma elementos//
     para f<- 1 hasta filas haga
         para c<- 1 hasta columnas haga
             sumae<- sumae + m[f,c]
         fin para
     fin para
     escriba "la suma de los elementos es: ", sumae
    
     3:// suma diagonal principal//
     para f<- 1 hasta filas haga
         para c<- 1 hasta columnas haga
             si f = c entonces
                 sumad<-sumad + m[f,c]
             fin si
         fin para
     fin para
     escriba "la suma de la diagonal principal es: ", sumad
     4: // posicion mayor y menor//
         mayor<-m[1,1]
        menor<-m[1,1]
        mayorpf<-1
         mayorpc<-1
         menorpf<-1
        menorpc<-1

        Para F <- 1 hasta filas haga
            Para C <- 1 hasta columnas haga
                Si  m [f,c]> mayor entonces
                    mayor<-m[f,c]
                    mayorpf<-f
                     mayorpc<-c
                sino
                    si m[f,c] < menor entonces
                        menor<-m[f,c]
                        menorpf<-f
                        menorpc<-c
                    FiN si
                Fin si
            FIN para
        FIN para
        Escriba "el numero mayor es: ", Mayor, " y se encuentra en la posicion: ", "fila: ", mayorpf,", columna: " ,mayorpc
        llamar nueva_linea
        Escriba "el numero menor es: ", Menor, " y se encuentra en la posicion: ", "fila: ", menorpf,", columna: ", menorpc
    5: //mostrar matriz//
            llamar nueva_linea
    para f<- 1 hasta filas haga
         para c<- 1 hasta columnas haga
                
                 escriba m[f,c]
                 si c=columnas entonces
                     llamar nueva_linea
                 fin si
         fin para
     fin para
fin caso
   
 Fin

CALCULAR AREA EN LPP

/*
SE TIENE UN TERRENO RECTANGULATR DE MEDIFAS LADO1 (FRENTE)7Y LADO2 (FONDO).
1) CALCULAR EL AREA DEL TERRENO
2) CALCULAR EL PERIMETRO DEL TERRENO
-----
EL PROPIETARIO DEL TERRENO DESEA SEMBRAR LIMON O MANGO.
SE SABE QUE LA PLATA DEL LIMON EN EDAD ADULTA OCUPA
6 METROS CUADRADOS DE AREA, Y LA PLANTA DE MANGO 12 METROS CUADRADOS.

3)CUANTAS PLANTAS DE LIMON PUEDE SEMBRAR EN EL TERRENO?
4)CUANTAS PLANTAS DE MANGO PUEDE SEMBRAR?
 EN LPP
-----
AUTOR: FRANK PIÑIN ATO
FECHA : MIE. 22/11/2017 - 08:20AM
*/
// ---------VARIABLES DE MODULO PRINCIPAL (GLOBALES)-----
REAL LADO1, LADO2,AREAPLANTA,AR
//----SUBRUTINAS: FUNCIONES Y PROCEDIMIENTOS ---
//AREA
FUNCION AREA(REAL LADO1, REAL LADO2): REAL
REAL A // VARIABLE LOCAL INTERNA
INICIO
      A <- LADO1*LADO2
      RETORNE A  // A ALMACENA EL AREA
FIN

//PERIMETRO
FUNCION PERIMETRO(REAL LADO1, REAL LADO2): REAL
REAL P // VARIABLE LOCAL INTERNA
INICIO
      P <- (LADO1*2)+(LADO2*2)
      RETORNE P  // P ALMACENA EL PERIMETRO
FIN
//CALCULAR TODO TIPO DE PLANTA -
FUNCION NUM_PLANTAS(REAL LADO1, REAL LADO2, REAL AREAPLANTA): ENTERO

//DEVUELVE EL NUMERO DE PLANTAS A SEMBRAR DE CUALQUIER TIPO SEGUN EL AREA QUE OCUPE LA PLANTA.
INICIO
      RETORNE (LADO1*LADO2)/AREAPLANTA
FIN
//COSTO ANUAL DE LOS FERTILIZANTES
FUNCION COST_PLANTAS(REAL LADO1, REAL LADO2, REAL AREAPLANTA,REAL COSTO): REAL
INICIO
      RETORNE ((LADO1*LADO2)/AREAPLANTA)*450
FIN
//-----------------------------------------------------

// --- MODULO PRINCIPAL ----

INICIO
      ESCRIBA "APLICACION TERRENO"
      LLAMAR NUEVA_LINEA()
      ESCRIBA "========================="
      LLAMAR COLOR_TEXTO(10)
      LLAMAR NUEVA_LINEA()
      ESCRIBA "INGRESE EL LADO 1 DEL TERRENO (FRENTE):"
      LEA LADO1
      ESCRIBA "INGRESE EL LADO 2 DEL TERRENO (FONDO):"
      LEA LADO2
      //INVOCANDO A LA FUNCION QUE CALCULA EL AREA
      //FORMA 1
      AR <- AREA(LADO1, LADO2)
      ESCRIBA "EL AREA DEL TERRENO ES:", AR
      //FORMA 2
      LLAMAR NUEVA_LINEA()
      ESCRIBA "EL AREA DEL TERRENO ES :", AREA (LADO1 , LADO2)
      // INVOCAR PERIMETRO
      LLAMAR NUEVA_LINEA()          
      ESCRIBA "EL PERIMETRO DEL TERRENO  ES:", PERIMETRO (LADO1, LADO2)
      //INVOCAR NUMERO DE PLANTAS
      LLAMAR NUEVA_LINEA()
      ESCRIBA "LAS PLANTAS QUE CABEN SON :", NUM_PLANTAS(LADO1,LADO2,AREAPLANTA)
      //INVOCAR COSTO LIMON
      LLAMAR NUEVA_LINEA()
      ESCRIBA "EL COSTO DEL LIMON  ES :", COST_PLANTAS(LADO1,LADO2,6,450)
      // INVOCAR COSTO MANGO
      LLAMAR NUEVA_LINEA()
      ESCRIBA "EL COSTO DEL MANGO  ES :", COST_PLANTAS(LADO1,LADO2,12,380)
FIN     

/*
EJEMPLOS VARIOIOS DE PROCEDIMIENTOS EN LPP
1)MOSTTRAR EN PANTALLA EL SALUDO HOLA
2) MOSTRAR "N" VECES HOLA(COMO INDIQUE EL USUARIO)
3)DIBUJAR LINEAS:
                -CON TAMAÑO VARIABLE
                -CON COLOR VARIABLE
                -CON UN CARACTER VARIABLE
4)DIBUJAR UN RECUADRO(MARCO)EN PANTALLA.
                -CON COLOR
                -DE TAMAÑO DE VARIABLE    
*/

//----VARIANBLES DEL MODULO PRINCIPAL ---
ENTERO N

//---SUBRUTINAS---
PROCEDIMIENTO SALUDO
INICIO
      LLAMAR COLOR_TEXTO(10)
      ESCRIBA "HOLA"
FIN
//--------------
PROCEDIMIENTO SALU2(ENTERO N)
// N VA A CONTENER CANTIDAD DE VVECES A REPETIR
ENTERO J
INICIO
      LLAMAR COLOR_TEXTO(11)
      PARA J <-1 HASTA N HAGA
           LLAMAR NUEVA_LINEA()
           ESCRIBA J,"-HOLA"
      FIN PARA    
FIN
//------------------
PROCEDIMIENTO LINEA(ENTERO N,ENTERO COLOR, CARACTER SIMBOLO)
ENTERO J
INICIO
      LLAMAR COLOR_TEXTO(COLOR)
      PARA J <-1 HASTA N HAGA
           ESCRIBA SIMBOLO
      FIN PARA
      LLAMAR COLOR_TEXTO(15)//VUELVE A BLANCO  
FIN
//-------------
PROCEDIMIENTO CUADRO(ENTERO X1 ,ENTERO Y1 ,ENTERO X2 , ENTERO Y2 , ENTERO COLOR)
ENTERO J
INICIO
      //DIBUJANDOI LAS LINEAS HORIZONTALAES
      LLAMAR COLOR_TEXTO(COLOR)
     
      PARA J <-X1 HASTA X2 HAGA
           LLAMAR POSICIONAR_CURSOR(J,Y1)
           ESCRIBA CAR(205)
           LLAMAR POSICIONAR_CURSOR(J,Y2)
           ESCRIBA CAR(205)
      FIN PARA
      //DIBUJANDOI LAS LINEAS VERTICALES
      PARA J <-Y1 HASTA Y2 HAGA
           LLAMAR POSICIONAR_CURSOR(X1,J)
           ESCRIBA CAR (186)
           LLAMAR POSICIONAR_CURSOR(X2,J)
           ESCRIBA CAR (186)
      FIN PARA
      //LAS ESQUINAS
      LLAMAR POSICIONAR_CURSOR(X1,Y1)
      ESCRIBA CAR (201)
      LLAMAR POSICIONAR_CURSOR(X2,Y1)
      ESCRIBA CAR (187)
      //--
      LLAMAR POSICIONAR_CURSOR(X1,Y2)
      ESCRIBA CAR (200)
      LLAMAR POSICIONAR_CURSOR(X2,Y2)
      ESCRIBA CAR (188)
      //---
     
      LLAMAR COLOR_TEXTO(15)//VUELVE A BLANCO  
FIN
//---MODULO PRINCIPAL--
INICIO
      LLAMAR CUADRO (1,1,80,22,9)//9 COLOR
     
     
      ESCRIBA "PROCEDIMIENTO"
      LLAMAR NUEVA_LINEA()
      ESCRIBA "============="
      LLAMAR NUEVA_LINEA()
     
     
      LLAMAR SALUDO
      LLAMAR NUEVA_LINEA()
     
     
     
      ESCRIBA "============="
      LLAMAR NUEVA_LINEA()
      ESCRIBA "INGRESE LA CANTIDAD DE N:"
      LEA N
      LLAMAR SALU2(N)
     
     
      LLAMAR NUEVA_LINEA()
      ESCRIBA "PULSE CUALQUIER TECLA PARA CONTINUAR..."
      LLAMAR OBTENER_CARACTER()// PIDE QUE SE PULSE LA TECLA
      LLAMAR LIMPIAR_PANTALLA()
     
      LLAMAR CUADRO (10,5,50,12,14)//14 COLOR
     
      LLAMAR LINEA(5, 11,'=')//(5) SIGNOS IGUALES,COLOR,CARACTER
      LLAMAR NUEVA_LINEA()
      LLAMAR LINEA(20, 12,'-')//(20) SIGNOS IGUALES,COLOR,CARACTER
      LLAMAR NUEVA_LINEA()
      LLAMAR LINEA(50, 13,CAR (177))//(50) SIGNOS IGUALES,COLOR ,CARACTER
      LLAMAR NUEVA_LINEA()
      LLAMAR LINEA(70, 10,CAR (219))//(70) SIGNOS IGUALES,COLOR ,CARACTER
     
     
     
      LLAMAR OBTENER_CARACTER()
     
FIN

/*
ALGORITMO QUE PERMITA INGRESAR LAS SGTS. NUMEROS Y LETRAS Y MUESTRE
EL DIA , EL NOMBRE Y UNA ACTIVIDAD DIARIA PERSONAL , ASI :
1 LUNES
2 MARTES
3 MIERCOLES
4 JUEVES
5 VIERNES
6 SABADO
7 DOMINGO

DADO OTRO NUMERO DEBE INDICAR ERROR (COLOR AMARILLO)
*/

ENTERO NUMERO
REAL LUNES, MARTES, MIERCOLES, JUEVES, VIERNES , SABADO, DOMINGO
CADENA [15] NOMBRE


INICIO
         LLAMAR COLOR_TEXTO (14) // 14 AMARILLO
         LLAMAR POSICIONAR_CURSOR (30,10)
         ESCRIBA " ******* INGRESE SU NOMBRE*****  "
         LLAMAR POSICIONAR_CURSOR (20,14)
         LEA NOMBRE
          LLAMAR POSICIONAR_CURSOR (20,15)
         ESCRIBA " INGRESE DIA DE LA SEMANA ( 1-7), DONDE 1=LUNES: "
         LEA NUMERO
         CASO NUMERO
                 1 :
                  LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES LUNES "
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. VER ANIME"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. LIMPIAR MI CUARTO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. LIMPIAR LA CASA"
                  2:
                   LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES MARTES"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. JUGAR CON MI PRIMO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. BAÑAR A MI PERRO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. AYUDAR A LA ABUELA"
                  3:
                  LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES MIERCOLES "
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. SACAR A PASEAR AL PERRO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. ARREGLAR MI ROPA"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. LAVAR MI ROPA"
                  4:
                   LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES JUEVES "
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. LAVAR PLATOS"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. VISITAR A LA ABUELA"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. AYUDAR A MI SOBRINO CON LA TAREA"
                  5:
                   LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES VIERNES "
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. VER TELE"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. JUGAR PELOTA"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. SALIR UN RATO"
                  6:
                   LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES SABADO "
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. ESTAR ENTRE PATAS"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. AYUDAR A MAMA"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. HACER LA TAREA"
                  7:
                  LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES DOMINGO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. VER ANIME"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. LIMPIAR MI CUARTO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. LIMPIAR LA CASA"
                
         SINO:
                 LLAMAR POSICIONAR_CURSOR (20,16)
                 LLAMAR COLOR_TEXTO (12)// 12 ES ROJO
                 ESCRIBA "ERROR, NUMERO INCORRECTO"        

FIN CASO

FIN

/*BANDERA DEL PERU EN LPP
*/
ENTERO J
INICIO
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     ///
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     ///
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     //
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     ////
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     ////
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     LLAMAR OBTENER_CARACTER()
FIN