У яких форматах можна подати числові дані? ​

var a: array [1..10] of integer;

s,i,c,b: integer;

begin

  read(c,b,n);

  randomize;

  for i : = 1 to n do

        a[i]: = random(b) -c+1;

  for i: = 1 to n do

        if i mod 2 = 0 then s: =s+1;

  writeln(s);

end.

наверно так

a: array [1..100] of longint

в клетке а1 - 8

              а2 - 80

              а3 - 72

              в1 - 20

              в2 - 2 

пусть р - это вероятность события при котором достается белый карандаш

тогда 2^i=1/p 

но i=4

2^4=1/p

p=1/16 - вероятность доставания белого карандаша

1/16=x/16 (x - это количество белых)

количество=64/16=4 карандаша белого цвета