1. запишите прямой код десятичного числа 147, интерпретируя как восьмибитовое целое без знака.
2. запишите дополнительный код десятичного числа 92, интерпретируя как восьмибитовое
целое со знаком.
3. запишите прямой код десятичного числа 30548, интерпретируя как шестнадцатибитовое целое
без знака.
4. запишите дополнительный код десятичного числа 7321, интерпретируя как
шестнадцатибитовое целое со знаком,
5. запишите в десятичной системе счисления целое число, если дан его дополнительный код:
0011100111001110.
6. запишите код действительного десятичного числа -967.4375, интерпретируя его как величину
типа double,
7. дан код величины типа double: c058dc, преобразуйте его в десятичное число,​

Для удобства построения таблицы истинности введем логические переменные.
Обозначим 2*2=4 через a, 3*3=9 - через b.
Тогда высказывание примет вид:

Для этого выражения и построим таблицу истинности.

2. Для доказательства равносильности указанных выражений можно построить таблицы истинности и сравнить их.
Как видно, НЕСОВПАДЕНИЕ полное, т.е. ни при каком сочетании a и b выражения не равносильны. Это подтверждается  теорией - имеются законы де-Моргана, в которых еще присутствует общее отрицание или в правой. или в левой части.

program z1;

var i,n,s:integer;

a : array [1..100] of integer;

begin

write ('Введите количество элементов n < 100: ');

readln(n);

write ('Массив: ');

for i:= 1 to n do

begin

a[i]:=random (21)-10;

write(a[i]:5)

end;

writeln;

s:=0;

for i:= 1 to n do

if a[i]<0 then s:=s+a[i];

writeln ('s = ',s)

end.

Объяснение:

Ошибки

1) нет названия программы и ; после неё

2) в описании массива 3 точки (надо 2)

3) нет кавычек для ввода текста в первом write

4) нет ; после readln (n)

5) нет : при присваивании i в цикле for i = 1

6) нет форматированного вывода или добавленного разделителя в write(a[i])

7) нет ; после первого end

8) нет ; после s:=0

9) нет кавычек для ввода текста в writeln (s = ,s)

10) нет точки после последнего  end

Условие

for i:= 1 to n do (перебираем весь массив)

if a[i]<0 then s:=s+a[i]; (если элемент меньше 0, то увеличиваем переменную s (сумму) на него)