Сколько чисел можно закодировать для хранения в восьмибитной ячейке памяти

4 символа в ячейку можно

Const n=20;
var a:array[1..n] of integer;
k1,k2,s,i:integer;
p:real;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(26)-5;
 write(a[i],' ');
 end;
writeln;
k1:=0; k2:=0; p:=1;
for i:=1 to n do begin
 if a[i]>0 
  then begin s:=s+a[i]; k1:=k1+1; end
  else if a[i]<0 then k2:=k2+1;
 if a[i] mod 2 = 0 then p:=p*a[i]; 
 end;
writeln('Среднее арифметическое положительных элементов = ',s/k1); 
writeln('Количество отрицательных чисел = ',k2,' количество нулей = ',n-k1-k2);
writeln('Произведение чётных элементов = ',p);
end.

Пример:
10 1 11 -5 -4 10 -4 -2 2 2 17 3 12 -3 15 -5 12 -3 4 -4 
Среднее арифметическое положительных элементов = 8.25
Количество отрицательных чисел = 8 количество нулей = 0
Произведение чётных элементов = 29491200

Const mas : Array [0..6,0..8] Of String = (('Иванов Иван Иванович        ', '1', '2', '3', '1', '5','3', '3', '2'),                                     ('Петров Петр Петрович        ', '5', '5', '5', '4', '5','5', '5', '5'),                                     ('Сидаров Сидор Сидорович     ', '3', '2', '3', '2', '2','2', '2', '1'),                                             ('Алексеев Алексей Алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'),                                     ('Сергеев Сергей Сергеевич    ', '2', '2', '5', '5', '5','5', '2', '3'),                                     ('Степанов Степан Степанович  ', '5', '5', '5', '4', '5','5', '5', '5'),                                     ('Давыдов Давид Давидович     ', '3', '3', '3', '3', '3','3', '3', '3'));                             var sr:real; // средний     b:real;begin  writeln('');  writeln('|            ФИО             |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |');  writeln('');  for var i:=0 to 6 do begin   write('|'+mas[i,0]+'|');    sr:=0;   for var j:=1 to 8 do begin    write(' '+mas[i,j]+' |');    double.TryParse(mas[i,j],b); // строку в число    sr:=sr+b;   end;   sr:=sr/8;   write(sr:5:3);   write('|');   writeln;  end;  writeln('');  end.