m:-between(1,300,N),((N mod 3<1;name(N,A),member(51,A))->X=aho;X=N),\+writeln(X).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page