0:1.
N:M:-A is N-1,A:B,M is N*B.
m:-prompt1(''),readln([X]),(X<0;N is X*2,N:M,X:Y,format("~d
",M/Y/Y),m).