{* Задача 516 *}

Unit ZADACH516;
Interface
Implementation
Begin
 writeln('Найти наименьшее однозначное число х удолв условию x*x*x-x*x=n');
End.

Program zadach516;
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  x  : longint;
  n  : longint;
  ot : boolean;
Begin
  clrscr; {* Стираем всё с экрана *}
  write(‘n = ‘);
  readln(n);
  ot := false;
  x := 1;
  While (x * x*x - x*xn) Do
  Begin
    inc(x); {* x++ *}
    If x * x*x - x*x = n Then
      ot := true;
  End;
  If ot = false Then
    write(‘нет’)
  Else write(‘x = ’, x);
    readln; {* Ждем подтверждения пользователя *}
End.