{ Найти двузначное число сумма кубов цифр которого равна n. }

uses crt;
var j,i : integer;
    z,n : longint;
begin
  clrscr;
  write('n=');readln(n);
  for j:=1 to 9 do
  for i:=1 to 9 do
  if i*i*i+j*j*j=n then z:=10*i+j;
  write('z=',z);
  readln;  
end.