Текст на русском языке первоначально записанный в 8 битовом коде Windows был перекодирован в 16 битную кодировку Unicode. Известно что этот текст был распечатан на 128 страницах каждая из которых содержала 32 строки по 64 символа в каждой строке. Каков информационный обьём этого текста?(С решением

В России пользователи чаще всего называют символ @ собакой, из-за чего
адреса электронной почты, образованные от личных имен и фамилий,
приобретают иной раз слегка обидное звучание. Справедливости ради надо
отметить, что в России этот знак называют также собачкой, лягушкой,
плюшкой, ухом, бараном и даже крякозяброй. Пользователям Интернета в
других странах нравятся самые разные
названия для знака @. В Японии – «значок а» , в Болгарии – «а
обезьянье» , в Голландии – «обезьяний хвост» , в Финляндии – «кошкин
хвост» , во Франции – «улиточка» , в Венгрии – «гусеничка» , «червячок» ,
«поросячий хвостик» , в Израиле – «штрудель» , в Китае – «мышонок» , в
Норвегии – «канельболле» (спирально закрученная булочка с корицей, то
есть плюшка) . В Германии знак дословно называют «обезьяна с цепким
хвостом» , но немецкое слово Klammeraffe имеет также второе, переносное,
значение: так называют пассажира на мотоцикле, сгорбившегося на втором
сиденье за спиной водителя. В Швеции и Дании символ @ сравнивают с
хоботом слона, а в Испании – со спиралеобразной конфетой, популярной на
острове Майорка. Даже на международном языке эсперанто символ
электронной почты получил свое название: «улитка».

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
type
  Point=record
  x,y:real
  end;

function GetPoint(c:char):Point;
begin
  Writeln('Введите координаты точки ',c,':');
  Read(Result.x,Result.y)
end;

function Line(A,B:Point):real;
begin
  Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;

function SqTriangle(pA,pB,pC:Point):real;
begin
  var a:=Line(pB,pC);
  var b:=Line(pA,pC);
  var c:=Line(pA,pB);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    var p:=(a+b+c)/2;
    Result:=sqrt(p*(p-a)*(p-b)*(p-c))
    end
  else Result:=0
end;

begin
  var A:=GetPoint('A');
  var B:=GetPoint('B');
  var C:=GetPoint('C');
  Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.

Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975