Example using write / read
position("Kowalczyk",'Teacher').
position('Joy','director').
position("Raj",manager).
position('Hasan','supervisor').
find_position:-
write('Whose position do you wish to know?'),nl,
read(Input), position(Input, Output),
write('The position of '), write(Input),
write(' is '), write(Output), write(' . ').