Объем сообщения, содержащего 5120 символов, составил 5 кбайт. каков размер алфавита, с которого записано сообщение?

Program a_1; uses crt; var   i,n,sum: integer; begin   write('введите n ');   readln(n);   i: =0;   sum: =0;   repeat       i: =i+1;       sum: =sum+i;   until i=n;   writeln('сумма чисел от 1 до ',n,' равна ',sum); end. program b_2; uses crt; var   i,n,sum: integer; begin   write('введите n ');   readln(n);   i: =0;   sum: =0;   repeat       i: =i+1;       sum: =sum+i*i;   until i=n;   writeln('сумма квадратов чисел от 1 до ',n,' равна ',sum); end. program v_3; uses crt; var   i,n,sum: integer; begin   write('введите n ');   readln(n);   i: =0;   sum: =0;   repeat       i: =i+1;       if (i mod 2 = 0) then sum: =sum+i;   until i=n;   writeln('сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum); end. program g_4; uses crt; var   i,n,sum: integer; begin   i: =9;   sum: =0;   repeat       i: =i+1;       sum: =sum+i;   until i=99;   writeln('сумма всех двузначных чисел равна ',sum); end.

Const   n=5; var   rost: array[0..n] of real;   team,i: integer;     st: string; begin   team: =0;   for i: =1 to n do       begin           st: ='не может быть ';           rost[i]: =150+random(51);           if (rost[i]> =170) then               begin                   team: =team+1;                   st: ='';               end;           writeln('претендент ',i,' (рост: ',rost[i],') ',st,'зачислен в команду' );         end;   writeln('всего в команду зачислено: ',team); end.