ALGORITMO Decir;
VAR
ENTERO x, z;
INICIO
ESCRIBIR("Dime dos números");
LEER( x, z );
SI( x > z )
ESCRIBIR("Verdadero");
FIN SI
FIN
ALGORITMO N32;
VAR
ENTERO a, b, c ;
INICIO
ESCRIBIR("Dame tres números");
LEER( a, b, c );
SI (a < b) AND (b < c)
ESCRIBIR("En orden creciente");
SINO
ESCRIBIR("En orden no creciente");
FIN SI
FIN
ALGORITMO Leer;
VAR
ENTERO x, y;
INICIO
ESCRIBIR("Dame dos números");
LEER(x, y);
SI( x == y )
ESCRIBIR("Son iguales");
SINO
SI( x > y )
ESCRIBIR("x es mayor");
SINO
ESCRIBIR("y es mayor");
FIN SI
FIN_SI
FIN