var i,j:word=3;a:array[3..22201]of byte;begin repeat write(i*2,":");j:=3;repeat if a[j]+a[i*2-j]<1then write(^`,j,"+",i*2-j);a[i*j]:=1;j:=j+2until j>i;writeln;i:=i+1until 0>0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).