Логические выражения и проверьте правильность преобразований построением таблиц истинности для исходного и выражений.

Компьютерная мышь - гаджет, без которого сложно представить управление компьютером. Первую компьютерную мышь создал Дуглас Энгельбарт в 1970 году. Если сейчас этот гаджет работает с сенсора на нижней части, то в на этом месте располагалось колесико, с которого и было возможно управлять курсором. Всего около двадцати лет назад мышь была с двумя небольшими кнопками и проводом. До этого кнопок было три. Позже появилось и колесо прокрутки, которое до сих пор остается на некоторых мышках. Инновацией является сенсорная мышь от Apple, на которой вовсе нет кнопок. Но не на всех современных мышках либо две кнопки, либо они просто отсутствуют. Сегодня уже невозможно представить игровую мышь без каких-либо дополнительных кнопок. Одна из особенностей современного гаджета -  отсутствие провода. При покупке такой мыши покупатель получит два предметам - саму мышь и приемное устройство, для которого обязательно понадобится USB-вход.

const
    handsfree = false;

var
    a: array[1..100] of real;
    i, n: integer;
    sum_pos, sum_neg: real;
    k_pos, k_neg: integer;

begin
    {ввод массива}
    if handsfree then
        n := random(20) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100) - 50;
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
    
    {подсчет}
    sum_pos := 0;
    k_pos := 0;
    sum_neg := 0;
    k_neg := 0;
    for i := 1 to n do
    begin
        if a[i] > 0 then
        begin
            sum_pos := sum_pos + a[i];
            k_pos := k_pos + 1;
        end;
        
        if a[i] < 0 then
        begin
            sum_neg := sum_neg + a[i];
            k_neg := k_neg + 1;
        end;
    end;
    writeln('average (positives) = ', sum_pos / k_pos);
    writeln('average (negatives) = ', sum_neg / k_neg);
end.