%%% Le um numero e reporta se eh positivo ou negativo

cabecalho :-
   write('Positivo ou negativo?'), nl. 

leNumero(X) :-
    write('Entre com um numero, seguido de ".": '),
    read(X).

reporta(N) :-
    N > 0,
    write('Positivo.'), nl.
reporta(N) :-
    N < 0,
    write('Negativo.'), nl.
reporta(_) :-
    write('Nem positivo, nem negativo.'), nl.

%%% programa principal

:- cabecalho, leNumero(A), reporta(A).
