program RozkladNaTretiMocniny;
{Rozklad daneho kladneho celeho cisla na soucet dvou tretich
 mocnin kladnych celych cisel}

var N: integer;       {rozkladane cislo}
    A, B: integer;    {rozklad N = A^3 + B^3}
    A3, B3: integer;  {hodnoty A^3, B^3}

begin
write('Rozkladane cislo: ');
readln(N);
A := 1;                {vypocet inicialni hodnoty A}
while A * A * A < N do A := A + 1;
A := A - 1;
A3 := A * A * A;
B := 1;                {inicialni hodnota B}
B3 := 1;
while A >= B do
  if A3 + B3 > N then
    begin A := A-1; A3 := A * A * A end
  else if A3 + B3 < N then
    begin B := B+1; B3 := B * B * B end
  else  {A3 + B3 = N ... mame reseni}
    begin
    writeln(A:8, B:8);
    A := A-1; A3 := A * A * A;
    B := B+1; B3 := B * B * B
    end
end.