у логические выражения.
1. А*(неB*неС+В*С)+А*(В*неС+неВ*С)
2. (А+В+С)*(неА*неВ)над всей скобкой ещё одна палочка отрицания «не»+С
3. (неА=>неВ)над всей Скобкой ещё одна палочка отрицания «не»+(неА =>В) над всей скобкой ещё одна палочка отрицания)+А*В

27   13     6    3    1    ДЕЛИМ 27 на 2 , в частном берем без целое число (=13)
1      1       0   1     1       <===    27(10) =11011(2)  пишем в обратном порядке
                                  Делим 13 на 2, в частном берем целое без округления 6
                                 Делим 6 на 2 (=3) и т.д.

11    5    2     1
1      1    0     1        11(10) = 1011(2)

2001   1000   500    250    125   64   32   16   8   4   2   1
1              0       0        0       1      0     0     0    0   0   0   1
                2001(10) =100000010001(2)

var a, b, c, i, j, n, ch:integer;
      s, p:array [1..10000] of integer;
begin
   n:=30;
   for i:=1 to n do
      s[i]:=random(64000)-32000;
      writeln('Данный массив');
   for i:=1 to n do
      write (s[i],' ');
   a:=s[1];
   for i:=1 to n do
      if s[i]>a then
         a:=s[i];
   for i:=1 to n do
       if s[i]=a then
          begin
          j:=j+1;
          p[j]:=i;
          end;
    c:=j;
    writeln;
    writeln('Полученный массив');
    for i:=1 to n do
       begin
       ch:=0;
       for j:=1 to c do
          if i=p[j] then inc(ch);
       if ch=0 then write (s[i],' ');
       end;
end.       
P.S. Надеюсь на благодарность и лучший ответ.