Пусть р - это вероятность события при котором достается белый карандаш. Тогда 2^i=1/p
но i=4
p=1/16 - вероятность доставания белого карандаша
1/16=х/16 (х- кол-во белых)
Кол-во = 64/16=4 карандаша белого цвета
Var
x, y, z : real;
begin
read (x, y, z);
if (x > 0) then x := sqr (x);
if (y > 0) then y := sqr (y);
if (z > 0) then z := sqr (z);
write (x, ' ', y, ' ', z);
end.
Вот 2 презентации и сам доклад