>This is a good way to get the even square of a: > >Input A >While fpart(Sqrt(A))=/=0 (not 0) >A+1->A >End >Disp A It needs to be even. Also, usuing a loop might take a long time for larger numbers, but it certainly works.