PseInt_Practica15_Contrasena

Proceso practuca25_contrasena
    // Se necesita un programa que pida una contrasena. Si la contrasena es igual a
    // "abrete sesamo", se terminara el programa, de otra manera se seguira solicitando
    // la contrasena
    // Aqui estamos usando el ciclo MIENTRAS... Hacer

    contrasena <- ""
    Escribir "Cual es la contrasena?";
    Leer contrasena
    Mientras contrasena <> "abrete sesamo" Hacer
        Escribir "CONTRASENA INCORRECTA"
        Escribir "Cual es la contrasena"
        Leer contrasena
    FinMientras

    Escribir "**** ACCESO CONCEDIDO *****"
FinProceso