{* Задача 106 *}

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

Program pas13513;

Uses zadach106.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.