l:=1;
repeat
for x:=1 to trunc(sqrt(N)) do
for y:=0 to x do if x*x+y*y=W[l]-ww then diff:=1;
l:=l+1;
repeat
for x:=1 to trunc(sqrt(N)) do
for y:=0 to x do if x*x+y*y=W[fs] then if first=0 then
begin
repeat
for x:=1 to trunc(sqrt(N)) do
for y:=0 to x do if S+x*x+y*y=W[ii] then if S<>W[ii] then if hod=0
begin