Twin primes by *yuko*

var i,j:word=2;begin repeat j:=i;i:=i+1;while i*(i+2)mod j>0do j:=j-1;if j<2then writeln(i,',',i+2)until i>2e3end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page