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