Подсчитать в байтах количество информации в тексте, если текст состоит из 800 символов, а мощность используемого алфавита 128 символов

Если у нас есть координаты этих вершин на плоскости вида (x; y),  то a(x1,y1) b(x2,y2) c(x3,y3) program q; var x1,x2,y1,y2,x3,y3: integer; ab,ac,alp,bet,alfa,s: real; begin write('введите координаты точки a: '); read(x1); readln(y1); write('введите координаты точки b: '); read(x2); readln(y2); write('введите координаты точки c: '); read(x3); readln(y3); ab: =sqrt(sqr(x2-x1)+sqr(y2-y1)); ac: =sqrt(sqr(x3-x1)+sqr(y3-y1)); alp: =arctan((y2-y1)/(x2-x1)); bet: =arctan((y3-y1)/(x3-x1)); alfa: =bet*2-alp; s: =sin(alfa)*(ab*ac)/2; writeln('площадь треугольника=',s); readln end.

Var     sequenceresult: real;     i: integer; begin     randomize;         sequenceresult : = 1;         for i : = 1 to 10 do         sequenceresult : = sequenceresult * (random(20) + 1);         //writeln('произведение 10 случайных чисел от 1 до 20 равно ', sequenceresult); end.

если вам требуется вывести произведение, уберите // на 12 строке перед записью writeln('');