%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:183
File Name:P041502
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
6\->A
\Seq(0,B,1,A,1)\->\List 1
\List 1\->\List 2
1\->B
31\->C
\Lbl 0
B\<=A\=>\Goto1
\List 1\->\List 3
E\->C
B-1\->B
\Goto2
\Lbl 1
0\->\List 1[B]
\Lbl 2
\List 1[B]+1\->\List 1[B]
\Prog "P041502A"
D=1\=>\Goto2
D=2\=>\Goto3
B+1\->B
\Goto0
\Lbl 3
B-1\->B
B\<>0\=>\Goto2
"SOLUTION"
\Prog "P041502B"
"DONE"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:70
File Name:P041502B
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->G
0\->H
\For 1\->F \To A
100H+\List 3[F]\->H
1+G\->G
\If G\>=5
\Then H\Disp0\->G
0\->H
\IfEnd
\Next 
G\<>0\=>H\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:124
File Name:P041502A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->D
0\->F
B\<>1\=>\List 2[B-1]\->F
B\->G
0\->E
\While G>0
\List 1[G]+E\->E
2^E\->H
\If \Frac (\Int (F/H)/2)=0
\Then H+F\->F
\Else 1\->D
\IfEnd
G-1\->G
\WhileEnd
\If E\>=C
\Then 2\->D
\Else F\->\List 2[B]
\IfEnd
%End