:- write('Soma de dois números.'), nl, write('Entre o primeiro, seguido de ".": '), read(A), write('Entre o segundo, seguido de ".": '), read(B), S is A + B, write('Resultado: '), write(S), nl.
