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.