1dEfnd(x)=x-6*int(x/6)=3
2fOi=1to19:fOj=1to19::pO983+i*40+j,32-10*(fnd(i+j-2)orfnd(i-j)):nE:nE