Factorial in Prolog

go:-
write('Enter The Number: '),
read(N),
TEMP is 1,
fact(N,TEMP).

fact(1,TEMP):-
(
    write('Factorial is: '),write(TEMP)
).

fact(N,TEMP):-
(
    RESULT is TEMP*N,
    B is N-1,
    fact(B,RESULT)
).