Вкоробке лежат кубики 10 красных, 8 зелёных, 5 жёлтых, 12 синих. вычислите вероятность(р) доставания кубика каждого цвета и количество информации каждого кубика, которое будет получено?

Pкрасн.=10/(10+8+5+12)

1) процессы монтажа теплотехнического оборудования;

2) систему работы котельных на различные видах топлива;

3) организацию ремонтных работ тепловых сетей;

4) основы проектирования котельных и тепловых сетей;

5)процессы реконструкции тепловых сетей;

6) основные положения действующей нормативной документации по профилю специальности;

7) технологию производства, транспорта и использования тепловой энергии;

8) устройство, принцип действия, теплотехнические и эксплуатационные характеристики основного и теплотехнического оборудования;

9) методы расчеты тепловых схем;

10) способы и средства измерения автоматизации тепловых процессов; методы обнаружения и устранения дефектов в работе установок и оборудования.

var

  n, i, nummin: byte;

  a, m: integer;

begin

  write('n = ');

  readln(n);

  nummin : = 0; { < -- не введено ещё ни одного числа, i=0 }

  m : = maxint; { < -- начальное значение минимума }

  writeln('введите ', n, ' целых чисел: ');

  for i : = 1 to n do

  begin

    read(a);

    if (nummin = 0) or (a < m) then

    begin

      m : = a;

      nummin : = i

    end

  end;

  writeln('количество элементов ',

    'перед первым минимальным: ', nummin - 1);

  readln

end.

вроде так