Алфавит 64 = 2^6 - т.е. 6 бит каждый символ
v = 12 * 16 * 52 * 6 = 59904 бит / 8 = 7488 байт / 1024 = 7,3125 Кбайт
N=2^i N=2^5= 32 уровня громкости
Program main;
Var A, B: array [1..100] of integer;
k, n, i: byte;
Begin
i:=1;
Readln (n);
For k:=1 to n do
Readln(A[k]);
For k:=1 to n do
If A[k]<0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]=0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]>0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For i:=1 to n do
Writeln (B[i]);
Readln;
End.
Схема в приложенной картинке.