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