label 9;var i,j,p:word;begin for i:=3to 1999do begin for j:=2to i-1do if i mod j=0then goto 9;if i-p=2then writeln(p,',',i);p:=i;9:end;end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page