Disp "UPPER BOUND?"
Input N
2->J
1->K
Lbl A
If SQRT(J^2+K^2)=!iPart(SQRT(J^2+K^2))
Goto B
Disp {J,K,SQRT(J^2+K^2)}
Pause
Lbl B
K+1->K
If K/(J-1)
Goto A
J+1->J
1->K
If J/N
Goto A
End