Напишите программу на языке паскаль по вариантам программа должна находить сумму чисел заданных формулой​

1. Количество информации вычисляется по формуле: 2i = N, где i - искомая величина, N - количество событий. Следовательно, 23 =8.
ответ: 3 бита
2 Решение:

i-?,

Число возможных информационных сообщений о положении крестика равно количеству клеток, т. е. 8*8=64, поэтому

N=2i, 64=2i, 26=2i, i=6.

ответ: 6 бит.
3. 2i=128. Следовательно, i=7.
ответ: 7 бит.
4. 5 бит
5. а) Всего шариков 25 + 25 +25 +25 = 100 Вероятности сообщений о цвете следующие: Рб = Рк = Рс = Рз = 25/100 =1/4 События не равновероятны, поэтому воспользуемся формулой Шеннона: N H = - ?Pi log 2Pi = - (4 • 1/4• log2 1/4) = - (4 • 1/4• (-2)) = 2 бита i=1 ответ: 2 бита
б) Всего шариков 30 + 30 +30 +10 = 100 Вероятности сообщений о цвете следующие: Рб = Рк = Рс = 30/100 =0,3; Рз = 10/100 =0,1 События не равновероятны, поэтому воспользуемся формулой Шеннона: N H=- ? Pi log 2Pi = - (3 • 0,3• log2 0,3+ 0,1• log2 0,1) бит i=1
7 ) 1/512 Мб * 1024 = 2 Кб * 1024 = 2048 байт
2) К = 2048 символов, следовательно, i = 1 байт = 8 бит
3) 2i = N; 28 = 256 символов
ответ: 256 символов 
вот так

Const
  m=5;
  n=8;
var
  b:array[1..m,1..n] of integer;
  i,j,ko,sp:integer;
begin
  Randomize;
  ko:=0; sp:=0;
  for i:=1 to m do
    for j:=1 to n do begin
      b[i,j]:=Random(51)-20;
      if b[i,j]>0 then sP:=sp+b[i,j]
      else
        if b[i,j]<0 then Inc(ko)
      end;
  Writeln('Сумма положительных элементов равна ',sp);
  Writeln('Количество отрицательных элементов равно ',ko);
  Writeln('Исходный массив');
  for i:=1 to m do begin
    for j:=1 to n do Write(b[i,j]:4);
    Writeln
  end
end.

Пример работы программы
Сумма положительных элементов равна 382
Количество отрицательных элементов равно 13
Исходный массив
  -6  13  10   2 -14  14  28  28
   5   7  26  -8  26  24   7  27
  15  -9 -13  28   4  12   9 -12
  -2  -9  20  10 -16   8 -10   2
  30 -10  -9 -10   2   2   0  23