Prolog program whether a number is a Prime

Find a number is a Prime or not:

predicates
go
prime(integer,real,integer)


clauses

go:-
write("enter no="),
readint(X),
Y=sqrt(X),
prime(X,Y,2).

prime(_,B,C):-
C>B,
write("is prime"),nl.

prime(A,B,C):-
C<B,
E=A mod C,
E0,
D=C+1,
prime(A,B,D).