Решите уравнение 2^y+2(бит)=8^y-5(кбайт)

ну если я правильно поняла, то это должны выглядеть так:

тогда все переведем в биты и решим уравнение:

Var s: set of integer;     i,a,k: integer; begin   s: =[]; k: =0;   write('введите 6 чисел через пробел   ');   for i: =1 to 6 do   begin     read(a);     if a in s then inc(k);         s: =s+[a];   end;   if k> 0 then writeln('есть повторяющиеся')   else writeln('нет повторяющихся'); end.введите 6 чисел через пробел   10 12 15 19 17 15 есть повторяющиесявведите 6 чисел через пробел   17 19 21 13 14 15 нет повторяющихся

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,-50,50); a.println;   var p: =a.indexmin;   writeln('номер минимального элемента ',p+1,           ', его значение ',a[p]);   p: =a.indexmax;   writeln('номер максимального элемента ',p+1,           ', его значение ',a[p]); end. пример 40 4 40 46 45 -42 -27 30 40 -13 номер минимального элемента 6, его значение -42 номер максимального элемента 4, его значение 46