Используя бинарный поиск, найти порядковый номер элемента, который равен разности первого элемента массива с последним.в динамическом массиве через паскаль

Var a:array of integer;
n,i,p,i1,i2: integer;
begin
write('n = ');
readln(n);
SetLength(a,n);
Randomize;
a[0]:=random(50)+100;
write(a[0]:4);
for i:=1 to n-1 do
 begin
 a[i]:=a[i-1]-random(11);
 write(a[i]:4);
 end;
writeln;
p:=a[0]-a[n-1];
writeln('p = ',p);
i1:=0; i2:=n-1; 
repeat
i:=(i1+i2) div 2;
if a[i]>p then i1:=i1+1;
if a[i]<p then i2:=i2-1;
until (a[i]=p)or(i1>=i2);
if a[i]=p 
 then writeln('i = ',i) 
 else writeln('Искомого элемента нет');
end.

Пример:
n = 20
 142 139 135 129 120 120 120 113 107 106 104  99  89  88  81  72  71  70  60  54
p = 88
i = 13

Если СС системы счисления, то:

Двоичная:

126 = 1111110

Переводим целую часть 12610 в 2-ую систему последовательным делением на 2:

126/2 = 63, остаток: 0

63/2 = 31, остаток: 1

31/2 = 15, остаток: 1

15/2 = 7, остаток: 1

7/2 = 3, остаток: 1

3/2 = 1, остаток: 1

1/2 = 0, остаток: 1

126 = 1111110

Обратно:

Переводим 1111110 в десятичную систему:

1111110 = 1·2⁶+1·2⁵+1·2⁴+1·2³+1·2²+1·2¹+0·1 = 126

Восьмеричная:

126 = 176

Переводим целую часть 126 в 8-ую систему последовательным делением на 8:

126/8 = 15, остаток: 6

15/8 = 1, остаток: 7

1/8 = 0, остаток: 1

126 = 176

Обратно:

Переводим 1768 в десятичную систему:

176 = 1·8²+7·8¹+6·1 = 126

Шестнадцатиричная:

126 = 7E

Переводим целую часть 126 в 16-ую систему последовательным делением на 16:

126/16 = 7, остаток: 14, 14 = E

7/16 = 0, остаток: 7

126 = 7E

Обратно:

Переводим 7E в десятичную систему:

7E = 7·16¹+14·1 = 126

Как-то так)

Возьмём допустим винлокер

Winlock (Винлокер) — семейство вредоносных программ, блокирующих или затрудняющих работу с операционной системой, и требующих перечисление денег злоумышленникам за восстановление работо компьютера, частный случай Ransomware (программ-вымогателей).

Чаще всего использует системный реестр для автозапуска и других пакостей. Удалить более менее легко в безопасном режиме. Если винлок брокирует запуск даже в безопасном режиме, запускаемся в безопасном режиме с командой строкой, пишем explorer и действуем как обычно. Вроде всё сказал, билдеры и билды можно найти в инете