07 - if e else

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

ler:-
	write('digite um numero'),nl,
	read(N1),
	write('digite outro numero'),nl,
	read(N2),
	imprimir(N1,N2).
imprimir(X,Y):-
	X > Y,
	write('maior numero ':X),nl,
	write('menor numero ':Y),!.
imprimir(X,Y):-
	X < Y,
	write('maior numero ':Y),nl,
	write('menor numero ':X),!.
imprimir(_,_):-
	write('numeros iguais').