​

Proceso logico3
    ESCRIBIR "CALCULO P,X,Y,Z " ;
    Definir P COMO LOGICO;
    Definir T,Q,W  COMO ENTERO;
    ESCRIBIR "ESCRIBIR T" ;
    LEER T
    ESCRIBIR "ESCRIBIR Q" ;
    LEER Q
    ESCRIBIR "ESCRIBIR W" ;
    LEER W
    P<-(W^2<>T*Q)O(T*W<=Q^2)Y(W<=T^2)
    ESCRIBIR "LA RESPUESTA ES: ",P; 
FinProceso