algoritmo en lenguaje de programacion

    a:entero;
inicio;
 escribir("\nDigite un numero: ");
 leer(a);
 si(a<0){
 escribir("\nEl numero es negativo");
 sino
 si(a==0) {
 escribir("\nEl numero es neutro ");
 sino
 si(a>0) {
escribir("\nEL numero positivo");
 }
 }
 }
fin

 a:entero
inicio
 escribir("\nDigite un numero: ")
 leer(a)
 si(a<0){
 escribir("\nEl numero es negativo")
 sino
 si(a>0) {
 escribir("\nEL numero positivo")
 }
 }
fin

var a,b: numerico
inicio
    cls()
    imprimir ("digite un numero")
    leer(b)
    a=b%2
    si(a==0){
    imprimir ("el numero es par")
    sino
    si (a==1){
    ecribir("el numero es impar  ")
    }
    }fin