Ejercicio 10(Procedimientos y funciones)

 Plantee e implemente una función en PASCAL que tenga un argumento de tipo
entero y que devuelva la letra p si el número es positivo o n si el número es
negativo. Además de la función, implemente un programa principal apropiado
para probar su funcionamiento.


 PROGRAM positi(input,output);
 VAR
 n,b:integer;
 (***********************************)
 FUNCTION negi(n:integer):integer;
 VAR
 a:integer;

 BEGIN
 IF n<=0 THEN a:=1 ELSE a:=2;
 negi:=a;
 END;
 (***********************************)
 PROCEDURE salida;
  BEGIN
  IF b=1 THEN write('El numero es negativo') ELSE write('El numero es positivo');
  END;

 (***********************************)
 BEGIN
 read(n);
 b:=negi(n);
 salida;

 END.