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.