Паскаль найти все натуральные решения уравнения: x^3+y^3=m . где м> 0 задает пользователь. использовать вложенные циклы.

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.