Здравствуйте написать эссе на тему "Мое отношение к компьютеризации практического здравоохранения"

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (x1,y1):=ReadReal2('Координаты 1-й точки:');
  var (x2,y2):=ReadReal2('Координаты 2-й точки:');
  var a:=Abs(x2-x1); // считаем, что координаты указаны верно
  var d:=a*Sqrt(2);
  var (xc,yc):=((x2+x1)/2,(y2+y1)/2);
  Writeln('Длина стороны ',a,', диагональ ',d);
  Writeln('Координаты центра пересечения диагоналей: ',xc,' ',yc)
end.

Пример
Координаты 1-й точки: -3 3.5
Координаты 2-й точки: 4 -3.5
Длина стороны 7, диагональ 9.89949493661167
Координаты центра пересечения диагоналей: 0.5 0

      Чтобы ответить на вопрос «сколько информации?», надо определить единицу информации каждого символа. Для алфавита (набора букв, цифр, скобок, знаков препинания и других символов) существует понятие информационного веса символа — количества информации, которое несет один символ алфавита, которое обозначается как i и выражается в битах (bit).
      Количество информации в сообщении, представленного символами, складывается из информационных весов і составляющих его символов, причём информационный объём сообщения I равен произведению количества символов в сообщении k на информационный вес символа алфавита i, что записывается как I = k×i.
     Из сообщения в задании следует, что количество всех неповторяющихся символов алфавита неизвестной планеты равно 8. Для такого алфавита і = 3 bit (так как 2³=8), а следовательно, поскольку в этом сообщении k = 12 символов, то информации оно несёт l = k×i = 12×3 = 36 bit.