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