Algoritmo PROCEDIMIENTO_LOGICO
    definir p,q,r Como Logico;
    v<-Verdadero
    f<-Falso
    //pedir los datos de entrada
    Escribir "ingrese el valor p"
    Leer p
    Escribir "ingrese el valor q"
    Leer q
    Escribir "ingrese el valor r"
    Leer r
    Escribir "(p and q) or r=",(p y q) o r
    Escribir "(p and r) or q=",(p y r) o q
    Escribir "(q and p) or r=",(q y p) o r
    Escribir "(q and r) or p=",(q y r) o p
    Escribir "(r and p) or q=",(r y p) o q
    Escribir "(r and q) or p=",(r y q) o p
    Escribir "Iglesias Gereda Enrique"
FinAlgoritmo