Proceso numero_positivo
definir numero Como Entero;
Escribir "ingrese un numero:";
Leer numero;
Si numero=0 Entonces
Escribir "el numero ", numero, " es neutro";

Sino
Si numero>0 Entonces
Escribir "el numero ", numero, " es positivo";
Sino
Escribir "el numero ", numero, " es negativo";
FinSi



FinSi

FinProceso