информационное сообщение объемом в 500 бит содержит 100 символов . какова мощность алфавита? ??можно как на образце записать и решить ​ , ребят

program xxx;

    var a, b, c, p, s : real;

begin

    wtiteln('введите катет а-');

    read(a);

    wtiteln('введите катет b-');

    read(b);

    s: =(a*b)/2;

    writeln('площадь треугольника =', s);

    c: =sqrt(sqr(a)+sqr(b));

    p: = a+ b + c;

    writeln('периметр треугольника =', p);    

end.

21 24 27 30 33 36 39 42 45 48 

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.

если текст распознан, то да. т. е. наобходима программа разспознования fine reader