Сколько букв и какого алфавита содержит зашифрованный десятичными текст 128 32 139 32 148 32 128 32 130 32 136 32 146 какой обьем памяти занимает данный текст

Текст содержит 7 букв алфавита объемом 13

//не самое изящное решение //pascal abc.net 3.1 const   n=5;   var  ar: array[1..2*n] of integer;   j,a,k,i,t: integer; begin   write('a: '); readln(a);   writeln('array: ');   for i: =1 to n do   readln(ar[i]);   j: =1;   k: =n;   while j< > k do   begin     if ((ar[j]> =0) and (ar[j+1]> =0)) or ((ar[j]< =0) and (ar[j+1]< =0)) then     begin     t: =ar[k];     for i: =k-1 downto j do       ar[i+1]: =ar[i];     ar[j+1]: =a;     inc(k);     j: =j+2;     ar[k]: =t;     end     else   inc(j);   end;   writeln('final array: ');   for i: =1 to k do  write(ar[i]: 4); end. пример ввода 1: 6 1 2 3 4 5 пример вывода 1: 1 6 2 6 3 6 4 6 5 пример ввода 2: 6 -1 2 -3 4 -5 пример вывода 2: -1 2 -3 4 -5 пример ввода 3: 6 1 2 -3 4 5 пример вывода 3: 1 6 2 -3 4 6 5

Procedure solution(n: byte; var s: integer); var       i: byte;       a: integer; begin       s : = 10;       for i : = 1 to n do       begin               a : = -20 + random(41);               write(a: 5);               s : = s + sqr(a);       end;       writeln end; var       n: byte;       p: integer; begin       randomize;       write('n? ');       readln(n);       solution(n, p);       writeln(p) end.