p=3for i= 5 to 100 step 2flag=-1for j= 3 to int(sqr(i)) step 2if i mod j = 0 thenflag=0exit forend ifnextif flag=-1 thenif i=p+2 thens=s & "(" & p & "," & i & ")"end ifp=iend ifnextmsgbox s
