Найти наименьшее натуральное число n, которое можно представить двумя различными способами в виде суммы кубов

var
  A, B, C, D, N : Integer;
  Find : Boolean;
begin
  Find := False;
  B := 1;
  repeat
    Inc(B);
    A := 0;
    repeat
      Inc(A);
      N := A*A*A + B*B*B;
      D := B + 1;
      C := 1;
      while (D*D*D + C*C*C < N) and (D*D*D < N) do
        if C < D then
          Inc(C)
        else
          begin
            Inc(D);
            C := 1;
          end;
      Find := D*D*D + C*C*C = N;
    until Find or (A = B);
  until Find;
  WriteLn(N);
end.

const
  Max = 15;
type
  tCube = record
    A, B, C : Integer;
  end;
var
  ArrS : Integer;
  Arr : array [1..Max*Max] of tCube;
  A, B, C : Integer;
  Cube : tCube;
begin
  ArrS := 0;
  for B := 1 to Max do
    for A := 1 to B do
      begin
        Cube.A := A;
        Cube.B := B;
        Cube.C := A*A*A+B*B*B;
        for C := 1 to ArrS do
          if Arr[C].C = Cube.C then
            begin
              WriteLn(Cube.C);
              Halt;
            end;
        Inc(ArrS);
        Arr[ArrS] := Cube;
      end;
  WriteLn('None');
end.