{* Задача 107 *}

Unit ZADACH107;
Interface
Implementation
Begin
 writeln('Найти двузначное число сумма кубов цифр которого равна n. ');
End.

Program zadach107;

Uses zadach107.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  j : integer;
  i : integer;
  z : longint;
  n : longint;
Begin
  clrscr; {* Очищаем экран *}
  write('n=');
  readln(n);
  For j := 1 To 9 Do {* Переменная j увеличивается с 1 до 9 *}
    For i := 1 To 9 Do {* Цикл для i => [1 .. 9] *}
      If i * i * i + j * j * j = n Then
        z := 10 * i + j;
  write('z=', z);
  readln; {* Ждем нажатия Enter *}
End.