var a:array[-1000..1000] of integer;
list:array[-10..10] of integer;
procedure init;
var i:integer;
begin
for i:=-1000 to 1000 do a[i]:=100;
for i:=-10 to 10 do begin
list[i]:=i*i*i; {计算所有的3次方}
a[list[i]]:=i; {标记所有可达的地方}
end;
end;
procedure work;
var i,j:integer;
begin
for i:=-6 to 6 do {枚举i,j}
for j:=-8 to 8 do
if (a[3-list[i]-list[j]]<>100) then writeln(i,' ',j,' ',a[3-list[i]-list[j]]);
end;