Определите условие при котором программа завершится

Впервом случае гильзы притянулись, потому что имеют заряды противоположного знака после контакта   произошел обмен  , а так как заряды с +   и - были равны, то   на обеих гильзах заряд нейтрализовался и они перестали взаимодействовать ,повисли вертикально во втором случае гильзы притянулись, потому что имеют заряды противоположного знака после контакта   произошел обмен  , а так как заряды с +   и - были не равны, то   на обеих гильзах образовался  заряд  одного знака (неважно какого)и одинакового размера. одноименные заряды отталкиваются, поэтому п осле контакта гильзы  оттолкнулись друг от друга

Гильзы притянулись потому, что они были заряжены зарядом разных полярностей,  но в силу разного уровня зарядов система не уравновесилась, и излишек, согласно закону сохранения заряда, описанному ещё фарадеем, распределился поровну между гильзами, что стало вызывать их взаимоотталкивание.

Какя програма

Var 
a:array[1..10] of integer;
n,i,s:integer;
begin
 for i:=1 to 10 do
  a[i]:=random(11);
 for i:=1 to 10 do
  if a[i] mod 2=0
   then write(i,);
 readln
end.

Ответ на рисунке))))))))))

Клеток 8×8 = 64, закрашена одна, поэтому первоначально был выбор 1 из 64.
На диагонали, выходящей из левой верхней клетки имеется 8 клеток, так что выбрать надо 1 из 8.
Неопределенность из 1/64 стала 1/8, т.е. уменьшилась в 8 раз.
8 = 2³, поэтому полученная информация оценивается в 3 бита.