m:-readln([N]),N/X,(N/Y,(X>1,X<N,Y>1,Y<N->put(48);put(49));nl),1<0.
N/X:-between(1,N,X).