%%% subrotinas

cabecalho :-
   write('Soma de dois números.'), nl. 

leNumeros(X, Y) :-
    write('Entre o primeiro, seguido de ".": '),
    read(X),
    write('Entre o segundo, seguido de ".": '),
    read(Y).

mostraResultado(R) :-
    write('Resultado: '), write(R), nl.

%%% programa principal

:- cabecalho, leNumeros(A, B), S is A + B, mostraResultado(S).
