2º Punto de 2º Parcial

2º Hacer un Módulo llamado Signo, qu tiene un parámetro de tipo real, la función devuelve un valor entero uno positivo (+1) si el parámetro real es mayor que cero o devuelve un valor entero uno negativo (-1) si el parámetro real es menor que cero o bien devuelve el valor entero cero (0) si el parámetro real es igual a cero.