Proceso juego_ranas
    Escribir "juego de Ranas y Rocas";
    Escribir "el objetivo del juego es que cada grupo de ranas quede al otro extemo";
    Escribir "trate de hacerlo en el menor numero de pasos posibles";
    Dimension roca[7] //se coloca numero de rocas a trabajar
   
    para r<-1 hasta 3 Con Paso 1 Hacer //se asigna valor a las rocas con ranas
        roca[r]<-1
    FinPara
   
    roca[4]<-0
   
    para r<-5 hasta 7 con paso 1 Hacer
       
        roca[r]<-2
    FinPara
    //contador de pasos
    contador<-0
   
    Repetir      //dibujo en pantalla de rocas y ranas                        
       
    Escribir " ";
    Escribir " ";
    Escribir " ";
    Escribir "Rana  ","   ", roca[1],"       ",roca[2],"       ",roca[3],"       ",roca[4],"       ",roca[5],"       ",roca[6],"       ",roca[7];
    Escribir "Roca   ----    ----    ----    ----    ----    ----    ----";
    Escribir "      [_1__]  [_2__]  [_3__]  [_4__]  [_5__]  [_6__]  [_7__]";   
    Escribir "Mover la rana de la roca"; //movimiento de ranas
    leer roca_origen
    Escribir "A la roca";
    leer roca_destino
    //condicion para dar nuevos valores
    si roca[roca_destino]=0 Entonces
        roca[roca_destino]<-roca[roca_origen]
        roca[roca_origen]<-0
    Sino
         Escribir "Movimiento erroneo"
    FinSi
    contador<-contador+1
    EScribir "has realizado ", contador ," movimientos";
    //condicional para marcar final
    hasta que (roca[1]+roca[2]+roca[3])=6 y (roca[5]+roca[6]+roca[7])=3
    Escribir " ";
    Escribir "Rana  ","   ", roca[1],"       ",roca[2],"       ",roca[3],"       ",roca[4],"       ",roca[5],"       ",roca[6],"       ",roca[7];
    Escribir "Roca   ----    ----    ----    ----    ----    ----    ----";
    Escribir "      [_1__]  [_2__]  [_3__]  [_4__]  [_5__]  [_6__]  [_7__]";
    Escribir " ";
    Escribir "has realizado ", contador ," movimientos"
    Escribir "                                         GAME OVER"
FinProceso