Как включить микрофон в дайте ответ

Program Ok;
var A:array[1..10] of real;
sum:real;i,n:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
read(A[i]);
end;
for i:=10 downto 1 do
begin
if(A[i]>0) then
n:=i;
end;
for i:=1 to 9 do
begin
if (A[n] = A[i+1]) then
sum:=sum+1;
end;
writeln(sum);
end.

Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объем следующего высказывания Жан-Жака Руссо:
Тысячи путей ведут к заблуждению, к истине – только один.
Ответ. 3) 456 бит.

1. они бы делали все максимально честно , ибо один из них мог бы обидеться

2 да по тому что учеником 15 и месяцев 12

3 скорее всего нет

Просто чертешь и все сейчас Скину как надо