m:-readln([A,_,B]),between(A,B,N),\+writeln(N).