INICIO
  HACER MIENTRAS R="S"
        LEER NUM
        IF NUM MOD 2 ENTONCES
           VER "ES UN NUMERO PAR"
           SINO
              VER "NO ES UN NUMERO PAR"
        FIN_SI
        LEER R
   FIN_HACER
FIN