Дана последовательность целых чисел а1,. верно элементы последовательности равны собой. нужно написать программу на паскале с циклом

Var a: array [1..20] of integer;     i: integer; begin       for i : = 1 to 20 do           readln(a[i]);       for i : = 1 to 20 do           if (a[i] < > a[1]) then           begin               writeln('неверно');               exit;           end;       writeln('верно'); end.надеюсь, я правильно понял , а то иногда не тут вначале надо 20 чисел ввести, а потом она проверяет, верно ли, что они все равны)

i = log₂ (1/p)

log₂ (1/p) = 4

1/p = 2⁴

1/p = 16

p = 1/16 вероятность появления автобуса n1

вероятность появления автобуса n2: р = 1/16 : 2 = 1/32

i = log₂ (1/1/32) = log₂ 32

i = 5 бит

5 бит информации несет сообщение о появлении автобуса n2.