Ver si un número es par o impar

Ejemplo con PSeInt que muestra si un número es par o impar, positivo o negativo y da la posibilidad de seguir ejecutándose.

Proceso par_impar 
 resp<-'s' 
 mientras resp='S' o resp='s' Hacer 
  Escribir "ingrese un valor"; 
  Leer n; 
  Si n>0 Entonces 
   Escribir "ES POSITIVO"; 
  Sino 
   Si n<0 Entonces 
    Escribir "ES NEGATIVO"; 
   Sino 
    //el cero no puede ser par o impar megativo o positivo 
    Escribir "ES CERO"; 
   FinSi 
  FinSi 
  Si n<>0 Entonces 
   r<-n mod 2; 
   Si r=0 Entonces 
    Escribir "es par"; 
   Sino 
    Escribir "es impar"; 
   FinSi 
  Sino 
   Escribir "es nulo"; 
  FinSi 
  escribir 'Desea comprobar con otro dato? (S/N)' 
  Leer resp 
 FinMientras 
FinProceso