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.