Изменения
/* Прога для варианта игры с добавлением 1 или 2 квадратов */
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
