Объединение последовательностей

[ShuricFC]

Даны 2 бесконечных возрастающих последовательности чисел A и В. i-ый член последовательности А равен {i}^{2}, i-ый член последовательности B равен {i}^{3}.
Необходимо найти Сх, где С возрастающая последовательность, полученная при обьединении А и В. Если некоторое число повторяется несколько раз, то в С оно попадает в единственном экземпляре.
В строке файла дано натуральное число Х.
В выходной файл вывести Сх.

[Аватар]

{i}^{2}

Что эта запись значит? Надо полагать i в квадрате? И ограничение на X должно быть. Иначе на месте того, кто будет проверять задал бы например X=10^237. Без ограничений программа должна предусматривать обработку и такого бреда

[ShuricFC]

Извините, X=10^7

[Аватар]

Так примерно. Ответ в s. i1,i2,s1,s2,s - int64

  i1:=1; i2:=1; s1:=1; s2:=1;
  for i:=1 to x do
    if s1<s2 then begin s:=s1; Inc(i1); s1:=i1*i1; end
    else if s2<s1 then begin s:=s2; Inc(i2); s2:=i2*i2*i2; end
    else begin s:=s1; Inc(i1); s1:=i1*i1; Inc(i2); s2:=i2*i2*i2; end;