Program ciklp_5-
uses crt-
var x,n : longint-
ot : boolean-
begin
clrscr-
write(‘n = ‘)-readln(n)-
ot:=false-
x:=1-
repeat
inc(x)-
if x*x*x-x*x=n then ot:=true-
until — ((x*x*x-x*x=n) or (x=10))-
if ot=false then write(‘нет’)
else write(‘x=’,x)-
readln-
end.