A/B:-(A<B,writeln(B);C is B*2,A/C).
m:-prompt1(''),readln([N]),(N<0;N/2,!,m).