prog.pl

compara(_,1):-!.
compara(A, B):-
	A/B =\= A//B.

primo(N):-
	revisa(N,1),
	writeln('si es primo').

revisa(N, N):- !.
revisa(N, Div):-
	sformat(CAD, "~w    ~w", [N, Div]),
	writeln(CAD),
	compara(N,Div),!,
	Div1 is Div + 1,
	revisa(N, Div1).