algoritmos

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){
    imprimir("el numero es impar  ")
    }
    }
fin





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






var a:numerico
inicio
 cls()
 imprimir("\nDigite un numero: ")
 leer(a)
 si(a<0){
 imprimir("\nEl numero es negativo")
 sino
 si(a==0) {
 imprimir("\nEl numero es neutro ")
 sino
 si(a>0) {
 imprimir("\nEL numero positivo")
 }
 }
 }
fin