Разработать программу в среде программирования Lazarus. Для задачи создать интерфейс, соответствующий условию

Для формирования сводного отчета по документооборотам выполните действия:

1. Выберите в главном меню «Действия – Сформировать отчет».

Откроется окно «Формирование отчета».

2. Укажите период, за который необходимо сформировать отчет по документооборотам. Для этого воспользуйтесь встроенным календарем или ссылками:

за все время - автоматически проставляется период с начала использования программы по текущую дату.

за месяц - автоматически проставляется период за месяц от текущей даты.

за неделю - автоматически проставляется период за дней от текущей даты.

3. Выберите документообороты, которые необходимо отобразить в сводном отчете при чекбоксов.

4. Укажите при необходимости для каждого направления документооборота дополнительные параметры, нажав на значок .

5. Развернется форма <Название направления документооборота> , например «Налоговая служба».

6. После того как все необходимые параметры отчета заполнены, нужно нажать на кнопку «Сформировать отчет». Начнется процесс формирования отчета, по окончании которого откроется окно просмотра отчета.

Выполняя алгоритм, получаем следующий результат (15 итераций)

1. 0..65534 -> 32767
2. 0..32766 -> 16383
3. 0..16382 -> 8191
4. 0..8190  -> 4095
5. 0..4094  -> 2047
6. 2048..4094 -> 3071
7. 2048..3070 -> 2559
8. 2560..3070 -> 2815
9. 2816..3070 -> 2943
10. 2944..3070 -> 3007
11. 2944..3006 -> 2975
12. 2976..3006 -> 2991
13. 2992..3006 -> 2999
14. 3000..3006 -> 3003
15. 3000..3002 -> 3001

Если лень перебирать вручную, можно воспользоваться программой

var k,l,r,x,f:integer;
begin
f := 3001;
l := 0;
r := 65534;
x := (l + r) div 2;
k := 1;
while (x <> f) and (l < r) do
  begin
  writeln(k,' ',l,' ',r,' ',x);
  k := k + 1;
  if f < x then r := x - 1
    else l := x + 1;
  x := (l + r) div 2
  end;
writeln(k,' ',l,' ',r,' ',x);
end.