{ Найти наименьшее однозначное число х удолв условию x*x*x-x*x=n. }

uses crt;
var x,n : longint;
    ot : boolean;
begin
clrscr;
write('n = ');readln(n);
ot:=false;
x:=1;
while (x*x*x-x*x<>n) do
begin
inc(x);
if x*x*x-x*x=n then ot:=true;
end;
if ot=false then write('нет')
    else write('x=',x);
  readln;
end.