Марсиане передали на землю сообщение, записанное при всех букв марсианского алфавита. вот оно:

птренедкммтыахцасгт!

сколько бит весит данное сообщение?

8а тут? ​

 Если вы говорит что на экран выводится число 10614 посредством метода "write(2*(n mod 5+3))", то вы ошибаетесь. Допустимые значения выводимых этим выражением чисел соответствуют следующей линейке: 6, 8, 10, 12, 14.
 Если же после данного цикла выполняется вывод переменной n, то указанное вами выводимое значение так же ошибочно, так как цикл выполняется до того момента пока переменная не станет равна нулю.
 Я скорее всего ошибаюсь, так как не вижу конкретизированного условия(в каком участке кода выводится значение 10614).

Const
  n=10;
var
  a,b,c:array[1..n] of real;
  i:integer;
begin
  Writeln('Введите элементы массива');
  for i:=1 to n do Read(a[i]);
  Writeln('   A      B      C');
  for i:=1 to n do
  begin
    b[i]:=a[n-i+1]; c[i]:=(a[i]+b[i])/2;
    Writeln(a[i]:7:3,b[i]:7:3,c[i]:7:3)
  end
end.

Тестовое решение:
Введите элементы массива
1.26 -0.3 6.18 7 -7.04 -9.9 -1.7 -2.955 1.75 0.245
   A      B      C
  1.260  0.245  0.753
 -0.300  1.750  0.725
  6.180 -2.955  1.613
  7.000 -1.700  2.650
 -7.040 -9.900 -8.470
 -9.900 -7.040 -8.470
 -1.700  7.000  2.650
 -2.955  6.180  1.613
  1.750 -0.300  0.725
  0.245  1.260  0.753

Блок-схема во вложении