Перевести число из 16 с/с в 2 с/с – АС936
Перевести число из 8 с/с в 16 с/с – 321756

Ложь И НЕ Истина = Ложь (False)

НЕ (Истина ИЛИ Ложь) = Ложь (False)  

НЕ Истина И НЕ Ложь = Ложь (False)

НЕ (Ложь И Истина) = Истина (True)

НЕ Истина И НЕ Истина = Ложь (False)

Истина ИЛИ НЕ Истина = Истина (True)

Объяснение:

Ложь И НЕ Истина = Ложь И Ложь = Ложь

НЕ (Истина ИЛИ Ложь) = НЕ (Истина) = Ложь  

НЕ Истина И НЕ Ложь = Ложь И Истина = Ложь

НЕ (Ложь И Истина) = НЕ (Ложь) = Истина  

НЕ Истина И НЕ Истина = Ложь И Ложь = Ложь

Истина ИЛИ НЕ Истина = Истина ИЛИ Ложь = Истина

НЕ - высказывание обратно исходному высказыванию

И - истинно, когда истинны оба исходных высказывания

ИЛИ - ложно, когда ложны оба исходных высказывания

Порядок:

1) скобки

2) НЕ

3) И

4) ИЛИ

Var
    n, k, i, imax, j: integer;
    a: array[1..100]of integer;

begin
    randomize;
    n := random(30) + 10;
    for i := 1 to n do
    begin
        a[i] := Random(30);
        write(a[i], ' ');
    end;
    writeln();
   
    {сортировочка}
    for i := 1 to n - 1 do
    begin
        imax := i;
        for j := i + 1 to n do
            if a[j] > a[imax] then
                imax := j;
        k := a[i];
        a[i] := a[imax];
        a[imax] := k;
    end;
   
    for i := 1 to n do
        write(a[i], ' ');
   
    k := 0;
    for i := 2 to n - 1 do
        if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then
            k := k + 1;
   
    if a[1] <> a[2] then k := k + 1;
    if a[n] <> a[n - 1] then k := k + 1;
   
    writeln();
    writeln('No doubles - ', k);
end.