с дз по информатике, второе задание делать с оr​

Разъясню
1. ИЛИ ложно, когда оба высказывания ложны. Т.е. 0 ИЛИ 0 = 0, в остальных случаях - истина. Значит, НЕ(х>87) И НЕ НЕ(х кратное 9)
В первом случае знак можно поменять: (х<=87), убрав при этом НЕ. Двойное отрицание убираем без последствий: (х кратно 9).
Наибольшее число, которое меньше или равно 87 И делится на 9 без остатка = 81.
2. 64 = 2^6
16 = 2^4
1 = 2^0
В двоичной записи десятичного числа 1 стоит на месте степени двойки, разряды нумеруются с конца, начиная с нуля.
Запишем разряды(их 6, т.к. первая 1 стоит на 6 позиции с конца, а ведущие нули можно убрать (как в десятичной вместо 008 мы пишем 8)
6 5 4 3 2 1 0
1 0 1 0 0 0 1
под разрядами пишем 1 там, где у нас была степень 2.
Это двоичная запись числа. В ней 4 нуля.
ответ: 4

Const
  n = 15;

var
  a:array[1..n] of integer;
  i,sp,sn: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  sp:=0; sn:=0;
  for i := 1 to n do
  begin
    a[i] := Random(51)-25;
    Write(a[i]:4);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
  end;
  Writeln;
  Writeln('Частное: ',sp/abs(sn))
end.

Тестовое решение:
Элементы массива
   2 -25   0   5  24   4   3   1  12  13  10   1   6  13 -17
Частное: 2.23809523809524

Вариант со вводом данных с клавиатуры:
const
  n = 15;

var
  a:array[1..n] of integer;
  i,sp,sn: integer;

begin
  Writeln('Вводите через пробел элементы массива');
  sp:=0; sn:=0;
  for i := 1 to n do
  begin
    Read(a[i]);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
  end;
  Writeln('Частное: ',sp/abs(sn))
end.