:Disp "Ans saved as T or G" :Prompt N:1üH :If mod(N,2)==1 :2üH :1üD:0üA :Repeat D>(đN) :If fPart (N/D)==0 :Then :A+1üA:{A,2}üdim T :DüT(A,1):N/DüT(A,2) :Disp T(A,1,A,2):End :D+HüD :Outpt(2,1,Dō) :End :0üB :A*2üdimL G :Repeat B==A :B+1üB :T(B,1)üG(B) :End :A+1üA :Repeat B==0 :T(B,2)üG(A) :B-1üB:A+1üA :End :Pause G