%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:141
File Name:P012901
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->A
\While 1
A\x^2+(A+2)\x^2+(A+4)\x^2\->B
\If B\>=1\EE5
\Then \Break
\IfEnd
10\Frac (B/10)\->C
\Int (10\Frac (B/100))\->D
\Int (10\Frac (B/1000))\->E
\Int (B/1000)\->F
\If C=D\ And C=E\ And C=F
\Then A\Disp\IfEnd
A+2\->A
\WhileEnd
"Done"
%End