Дан ряд последовательных натуральных чисел от n до m из которого удаляют вначале все числа, стоящие на нечётных местах. Потом из оставшегося ряда удаляют все числа, стоящие на чётных местах. Действия повторяются до тех пор, пока не останется число. Найти это число.

Версия без массива:

program Excl1;

var
  n, m, r: Integer;
  s, t: LongInt;

begin
  Write('n>');
  Readln(n);
  Write('m>');
  Readln(m);

  t := n;
  s := 1;
  while t <= m do
    begin
      r := t;
      Inc(t, s * s);
      s := s shl 1;
    end;

  Writeln( r );
end.