Объединение бесконечных возрастающих последовательности чисел A и B

### var x:=ReadInt64;
var a:=seqgen(x,i->i*i,1);
var b:=seqgen(x,i->i*i*i,1);
a.Interleave(b).Dst.order.take(x).last.pr;

##
  var a, b, c, ak, bk: int64;
  (a, b, c, ak, bk) := (1, 1, 1, 1, 1);
  loop ReadlnInteger do
    if a < b then
      begin
        c := a;
        ak += 1;
        a := ak * ak
      end
    else
      if a > b then
        begin
          c := b;
          bk += 1;
          b := bk * bk * bk
        end
      else
        begin
          c := a;
          ak += 1;
          bk += 1;
          a := ak * ak;
          b := bk * bk * bk
        end;
  c.Println

##
  var a, b, c, ak, bk: int64;
  (a, b, c, ak, bk) := (1, 1, 1, 1, 1);
  loop ReadlnInteger do
    if a < b then
      begin
        c := a;
        ak += 2;
        a += ak
      end
    else
      if a > b then
        begin
          c := b;
          bk += 1;
          b := bk * bk * bk
        end
      else
        begin
          c := a;
          ak += 2;
          bk += 1;
          a += ak;
          b := bk * bk * bk
        end;
  c.Println