Изменения
/* Прога для варианта игры с добавлением 1 или 2 квадратов */
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=0then
begin
writeln( 'Ход компьютера: ', S, '+', x*x, '+', y*y, '=', W[ii]);
S:=W[ii];
hod:=1;
end;
ii:=ii+1;
