: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