var
M, y, x, i, j: integer;
begin
readln(m);
writeln(X:5, Y:5);
for i := 0 to M do
for j := 0 to M do
if (power(i, 3) + power(j, 3) = M) then
writeln(i:5, j:5);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.