Можно ли представить заданное натуральное число как сумму кубов каких-нибудь трех натуральных чисел. (Delphi)

[Natalia_Zlatskaia]

Определить, можно ли представить заданное натуральное число как сумму кубов каких-нибудь трех натуральных чисел. (Делфи)

[ViktorR]

Эта программа тупым перебором ищет возможные представления для всех чисел до 100000 как сумму кубов трех чисел.
Если для данного числа найдены три числа сумма кубов которых совпадает с заданным числом, то результат пишется в файл.

uses crt;
var m, n, nt : longint;
    k, i, j  : longint;
          fh : text;
begin
   assign(fh,'sum-cub.txt');
   rewrite(fh);
   repeat
      clrscr;
      write('Vvod celogo chisla (N <= 100000): ');
      readln(m);
   until m <= 100000;

   while m > 0 do
   begin
      for k := 1 to m do
      begin
         if k*k*k > m then
            break;
         for i := 1 to m do
         begin
            if ((i*i*i > m) OR (i*i*i + k*k*k > m)) then
            break;
            for j := 1 to m do
            begin
               if j*j*j > m then
                  break;
               nt := k*k*k + i*i*i + j*j*j;
               if nt > m then
                  break
               else
                  if m = nt then
                  begin
                     writeln(fh, 'N= ', m:5, ' == ', k:4, '   ', i:4, '   ', j:4);
                  end;
            end;
         end;
      end;
      m := m - 1;
   end;
   writeln('Final'); readln;
   close(fh);
end.

Как переделать? ...

Как-то так, ...