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).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page