Proceso para saber si un numero ingresado es negativo, neutro o positivo.

Proceso Pares
Definir a,b,par,NUMERO como entero;
Dimension POSITIVO(10);
a<-0;
b<-1;
Para b<-1 Hasta 20 Con Paso 1 Hacer
Si NUMERO=0 Entonces
POSITIVO(a)<-b;
a<-a+1;
Escribir "NUMERO ",NUMERO, "ES NEUTRO";
Sino
Si numero>0 Entonces
Escribir "el numero ", numero, " es positivo";
Sino
Escribir "el numero ", numero, " es negativo";
FinSi
FinSi
FinPara
Escribir "POSITIVOS";
Para a<-0 Hasta 9 Con Paso 1 Hacer
Escribir POSITIVO(a);
FinPara

FinProceso