Будем действовать планомерно. В условии сказано что кодировка была перекодирована, хорошо, учтем. После чего добавили 12 символов, а это означает что нужно изначальное колл-во символов прибавить к вновь прибывшим: 78+12 = 90 символов.
Для нахождения информационного объема нам требуется умножить глубину кодировки (16 бит) на общее колл-во символов.
Вычисления:
16 * 90 = 1440 бит.
Ответ: 1440 бит.
program sd;
var i : integer;
s : longint;
begin
s := 1;
i := 10;
repeat
if (i mod 13 = 0) and (i mod 2 <> 0) then
s := s * i;
i:= i+1;
until i>99;
writeln('proizvedenie = ',s);
end.
===== PascalABC.NET =====
begin
var a := ReadArrInteger(5);
a.Println
end.