{* Задача 238 *}

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

Program z43;

Uses zadach238.pas; {* Эту строку можно удалить *}
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 на 1 *}
    If x * x * x - x * x = n Then
      ot := true;
  End;
  If ot = false Then
    write('нет')
  Else write('x=', x);
    readln; {* Ждем подтверждения пользователя *}
End.