У меня так получилось :
uses crt;
var i,j,t,x,y,z,n,m,p:Longint;
m1:Extended;
begin
ClrScr;
p:=0;
Write('Cislo = '); Readln(n);
m1:=exp(ln(n)/3);
m:=Trunc(m1);
for i:=1 to m do
begin
x:=i*i*i;
if p<>0
then Break
else
for j:=1 to m do
begin
y:=j*j*j;
if p<>0
then Break
else
for t:=1 to m do
begin
z:=t*t*t;
if (x+y+z)=n then
begin
Writeln(i,' ',j,' ',t);
Inc(p);
Break;
end;
end;
end;
end;
if p=0 then Writeln('Nelzja');
ReadKey;
end.