dim i,j,n,t as integern=inputbox("n=")for i=1 to n if i mod 2=0 thent=i \ 2for j=2 to int(sqrt(t)) if t mod t=o then exit for next j if j>int(sqrt(t)) then print i;"=";t;"+";tend ifnext i